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INTRODUCTION 



ADUENTURES are unusual human experiences characterized by 
extreme situations and dangers, indelibly impressed on the 
adventurer ' s memory . 

They Bxert a great influence on the human mind and since 
time immemorial have Fascinated even people not involved in 
the events. Poetry has made use of this fact, and in recent 
times various games of a literary nature have been developed. 

First there were troubadors who told the people and crowned 
heads of the deeds oF long dead heroes. Then in the 12th 
century the minstrels' poems developed into great epics such 
as "Lancelot". 

"Don Quixote" inspired thousands with his experiences, 
Following which travelers' tales CDeFoe, Fenimore, Cooper 
etc. 3 made use oF the subject oF adventure, a development 
that stopped with the introduction oF detective stories and 
sci-Fi novels. 
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1.1 ADUENTURES TODAY 



Who is not familiar with the adventure stories of their 
childhood or not been carried away by the experieces of Lord 
of the Rinos or Robinson Crusoe? Who has not identified 
himself with the principal characters and imagined how he 
himself would have behaved in the same situation? 

Most computer users, certainly in their early stages of 
computing, play space invader type programs. After a while 
though, when you realize that the playing sequence is 
always the same and that no thinking is required - just a 
quick wrist - boredom sets in. 

However a recent survey reveals that the American computer 
users who enjoy arcade-type games have developed a strong 
following in ADUENTURE games. Lively adventures, along with 
chess or Othello, represent the most intelligent application 
of your computer for entertainment purposes. Now, in 
adventures, the field of play is not limited to you against 
a shower of aliens - but a whole world of situations and 
possibilities needing your understanding and logical 
thinking. Nimble fingers are not enough! 

When an adventure program has been loaded into the computer, 
our computer contains an independent world, a world 
consisting of three-dimensional spaces, objects, and, last 
but not least, a large number of fellow players. 



These fellow players must be able to communicate with us and 
must be able to hold a proper dialogue with us. 
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For example the principal character in an adventure is the 
figure with which we are to become ourselves. This principal 
character we best imagine to be a kind of robot that we 
control with words of our language. Ule instruct him to go in 
a certain direction. He then tells us what he sees at his 
hbw location. We instruct him to examine these things more 
closely, possibly order him to take them, and some time or 
other instruct him to use the objects in a certain way . 

These programs allow us, without any great risk and at no 
great cost, to experience interesting adventure that may 
occur in the real world, but we can also enter a fantastic 
world full of ghosts and marvelous things; it is only the 
programmers' imagination that sets the limits. 

A good adventure will causs us to act as in real life and 
will even let us explore space From the comfort of our 
favorite armchair. 

Is it not far more interesting if, through the keyboard, I 
give an imaginary person the command "Open door" and the 
screen gives me the answer "I do not have the appropriate 
key" or "O.K. - the door is open" than if I continually 
press the Firing button of my Joystick to keep a counter and 
a tone generator running? 

With thB following examples I should like to show you how 
interesting it can really become: 



Haw do we catch a fish in order not to starve when 
uib have only our bare hands? 
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How can we keep the hungry bear From looking on 

us as a snack between meals? 

How am I to cross thB raging river inhabited by 
primeval predators? 

With a little thought all these problems can be solved; we 
have only to have the right ideas and a lot oF imagination. 

Your task is to gBt into a certain house whose 
entrance is barred by an iron gate. By looking 
closely you see a key lying a Few inches behind the 
gate, but unFortunately your arms are too short to 
let you reach the key through the gate. 

How do you purpose getting into the house? 

It is not possible to climb over the gate, but a 

Few steps From the house you had noticed a number 

oF trees. Some time or other during the game you 

also Found a piece oF chewing gum. 

Ue spent some time solving this problem, mainly 
because no one had clearly pointed out objects that 
could have been used: 

All we needed to do was ta go to the trBe and break 
oFF a branch. THen we returned ta the entrance to 
house, chewed gum, Fixed it to one end oF the 
branch, pushed this end through the gate, and 
touched the key, whereupon this stuck to the 
chewing gum; by careFully pulling the branch back 
we Finally got the key. find it Fits the gate! 
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A neat solution, not so simple, but planned exactly in this 
may by the programmer during the development work. I should 
however add that the instructions enclosed with the game 
assume that the player has some experience in it. 

Perhaps the above example has already put you in the mood 
For adventure. However, should you have not noticed the 
power of the written word to fascinate, imagine what it 
could be like if some really good detective novels were 
enacted on your computer . 

Perhaps it will prove necessary one day to amplify the 
definition of the term "adventure" in our dictionaries as 
follows: 

In the 20th century advanced computer technology 
made it possible for the adventure story also to 
play a part. Scott Adam's "Adventure Land" is 
regarded as a milestone! there followed many other 
adventures, developed to such a degree as to 
achieve "perfect world" simulations. Many well- 
known authors of books Cfor example Michael 
CrightonJ promptly recognized the new possibilities 
and in their works created a balance for many 
people in relation to the everyday world. 
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1.2 THE HISTORY AND DEUELOPMENT OF ADUENTURES 

Since a program-controlled computer brain was developed from 
the first computer, all kinds of efforts mere made in 
programming circles to make computers simulate human 
thinking and human behavior. In 1966 Joseph weizenbaum of 
the Massachusetts Institute of Technology developed his 
ELIZA program that finally succeed in interesting not only 
the experts, but also the public. 

ELIZA, available today in slimmsd-dawn versions for any 
microcomputer, simulates a psychiatrist and imitates the 
psychiatrist's typical way of talking. People used in the 
initial tests were very surprised to learn after their 
respective sessions that they had told a machine about their 
most personal problems . 

Subsequent development of artificial intelligence resulted 
in the experts creating a program implemented on a PDP-10: 
ADUENTURE - Colossal Cave. For a change, the learned 
gentlemen were allowed to explore another field, that is 
look for treasure in a dark world governed by magic. 
Collosal Cave enjoyed great popularity among experts and was 
finally made available to fairly large numbers of the public 
in the summer of 1973. MICROSOFT, a firm probably known 
today to everyone, published "Microsoft's Adventure" , a 
diskette version of this original adventure for the most 
popular microcomputer in America then, the TRS-80 . 

The adventures were however made socially acceptable as 
early as 1978 by a young American names 9cott Adams, who 
with his ADUENTURE LAND laid the foundation for the software 
firm ADUENTURE INTERNATIONAL. 
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This game, too, involves finding treasures in o mystical 
world, which naturallg is madB difficult by dragons, mazes, 
rivers of lava, and other dangers, Everything begins quite 
harmlessly in the middle of a woods. But when you have got 
your bBarings and know in what direction you have to go to 
find the entrance to the underground kingdom, then . . . 

The demand for ADUENTURE LAND was immense, probably because 
at the time there were no other games of quality. Because 
of its great success, ADUENTURE LAND was quickly followed by 
a series of IE adventures, skillful selection of the subject 
matter keeping the customer's interest alive. 

Should you ever want to pick a fight with Count Dracula, you 
can in "The Count". Or would you prefer to find a saboteur 
in an atomic power station? No problem, "Mission 
Impossible" makes it possible. 

At this time there appeared on the American software market, 
a type of program called "INTERACTIUE FICTION". These 
programs were supposed to represent a new type of literature 
and, as the name implies, were supposed to be books calling 
for participation. At first the player is only a reader. 
After the start of the program, he is very definitely 
brought into action. Numerous pages flicker over the 
screen. These give the reader information on what has 
happen bBfore, the present situation, backgrounds, etc. and 
can be read Just like a book. 

Thus "Local Call for Death" begins Just like a detective 
story. Three men meet in their clubhouse. During the 
course of the evening one of them is called to the 
telephone. It is the nephew asking his visibly excited 
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uncle For money. The unclB refuses however to help him, 
knowing from experience that the moneg will be gambled away 
at the racetrack. The next morning he learns of his 
nephew's suicide. 

At this point the player takes over. He represents one of 
the principal characters and endeavors to throw light on the 
apparent suicide by direct conversation with the 
participants. 

A typical feature of these programs is the concentration on 
single task, as in this case solving a murder. 



a 



To achieve this task, we as players must skillfully use 
questions more than objects. Which tends to be more 
interesting: "to read a conversation in a book?", "to 
follow a court case in a film?", or to "experience the 
success achieved in convicting a criminal?" 

It is this very ability to hold dialogues that gives 
Interactive Fiction its appeal. A classic example is 
"Encounter in the Park", published by Adventure 
International . 

In this game we meet our dream woman during a morning walk 
and it becomes our intention to enchant this girl and 
persuade her to consent to marriage. The programmer has 
given the player a wide spectrum of persuasive arguments, 
and it really is a lot of fun to find out how the lady 
reacts to certain suggestions. 
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The worst that can happen to us if we make suggestions that 
are too frivolous is that the lady turns away From us 
incensed and we spend the rest of our life in monastery. 

As already said, all these textual adventures proved to be 
of very great interest and accordingly a growing number of 
firms published more or less good copies of these gamBS. 
With increasing pressure from competitors a number of 
software manufacturers started thinking about new 
generations of adventure . 

There appeared the first MAZE ADUENTURES, the aim of the 
game being to escape from a building, but nearly always the 
player got hopelessly lost in the maze, shown in perspective 
on the screen. The next stage of development was the QUEST 
ADUENTURES, which in most cases were implemented as real- 
time adventures. Here the player is subjected to additional 
stress, for unless on the appearance of some robbers he doss 
not immediately input F for Fight and then does not 
continually press certain keys or combinations of keys in 
order to brandish his sword, the game ends very early 
because the main charactsr is too badly injursd to continue. 

Unfortunately the conception of thesB games greatly 

restricts the player's freedom of action, since he is left 

with only □ few actions such as fight, negotiate, buy, or 
flee on the menu. 

The next stage in the development Df adventure games was 
made possible thanks to the falling prices for graphic 
processors and RAtl modules, for now it was no longer 
difficult for computer manufacturers to offer home users 
inexpensive computers with graphics, previously available 
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only on much larger and therefore much more costly 
equipment. 

With the sale of the first GRAPHIC ADUENTURE these games 
were given a new boost in 1985 tsomewhat earlier in the case 
of Apple users 3, for while they had been frowned upon by 
many computer users as pure textual games, they now suddenly 
became interesting because of the many colorful pictures; in 
addition they proved eminently suitable in their ability to 
elicit at least an astonished "Oh, that's nice!" from 
relatives not familiar with computers, following the 
question "What can your computer do then?" . 

Naturally nothing at all had changed in respect to the value 
and aim of the game. Suddenly further groups came within 
reach: a reason for flooding the market with many well-known 
adventures in the new garb, adventures that had been known 
for years; the detailed descriptions had disappeared and 
instead the current situation was to be seen on the 
television screen. 

Whether as a result the programs had become better or easier 
to play is an opBn question. I personally prefer to have my 
attention drawn to important things by a statement such as 
"I am in the woods. There are nothing but trees around me. 
Between two oaks I see a hole in the ground." than, in 
contrast, to see only a few trees; I then regard these as 
appearing a bit too early for an otherwise quite normal part 
of woods, for which reason I move on quickly, examine the 
trees no further, and as a result naturally overlook the 
hole, a small patch on the monitor. NeedlBSS to say, a 
successful conclusion to the game is not passible. 
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8. THE CONCEPT 



5.1 PREPARING THE ADVENTURES 



In the Following chapters of this book we shall develop a 
number of adventure games together. OF course uib want to 
give our work as proFessional a look as possible, so me 
shall not be able to avoid analyzing the properties and 
special Features oF programs already on the market . 

Then we shall think about how uie can program the individual 
Functions in BASIC. 

It has already been emphasized that an adventure is intended 
to move the player to another world, a world that makes the 
impossible possible. He is intended to experience 
adventures here, so he must be able to move and act. 
Likewise the results oF his eFForts must be communicated to 
him. Sensible, planned action is not however possible For a 
human being until he has used his senses. The inFormation 
that in real liFe the adventurer picks up with his eyes, 
ears and sense oF touch must thereFore be aFFered to the 
player in another manner. 

Since thB human brain cannot as yet bB connected direct to a 
computer, we obtain answers to the questions "Where am I?", 
"What do I see?", "Where can I go?", "What do I Feel?", and 
"What do I see?" in the Form oF short, but complete 
sentences . 
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A conscious understanding of the environment will of course 
not be possible except in the rarest of cases. Therefore 
the adventure player cannot be expected to study extensive 
trBatisBs on the world he has Just entered, otherwise he 
will never identify himself with the character in the game 
and indulge in the illusion of a fictitious world. 

Therefore, unless it is a question of graphic games, the 
monitor picture is divided into two clear zones, each of 
which has a precisely defined function. 

The upper half of the picture will tell us where we happen 
to be and what we see, whilB the lower half is intended for 
communication with the main character acting for us in the 
adventure. Here we input our instructions and learn what 
happens following our inputs. 

In this way we are enabled ta move on in an imaginary world 
in accordance with a set plan, Just as we are enabled to 
carry out sensible manipulations and actions. 

A typical screen picture could look something like this: 

I am in a dark wood . 

I see a lot of old trees. 

I can move north, east, west. 



what am I to do? 



IE 
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Should uie intend to advance as quickly as possible in the 
game, it would be wrong to walk aimlessly in the direction 
of one of the three cardinal points. The most obvious thing 
for an adventure player to do in any situation is to examine 
everything as carefully as possible. Thus possible answer 
to "Examine tree" would be something like this: "ThBy are 
old oak trees" or "Here the trees are dying off all around". 

These answers, it is true, do not help us, but apparently 
only show us that after all it is not always important to 
examine everything . But how is one supposed to know the 
answer in advance? For even an answer like "In the tree 
trunk I see an opening" would have been possible. Perhaps 
it is an old nest made by a woodpecker with part of the 
treasure concealed in it; "Examine opening" will throw light 
on the matter . 

If we did not find any clues, even following "Explore wood" 
Cit could be magic woodl, we should have to decide where it 
would now be sensible for us to go. 

How would you behave in such a situation, without map and 
compass, helpless and alone, far from all paths? Presumably 
you would climb up a tree in order to see what there is in 
the immediate vicinity and in the distance. 

Therefore your input should rBad "Climb tree" and if you do 
not receive a statement such as "I am not athlBtic enough 
for that!", the picture on thB monitor will change: 
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I am in the crown of an old oak tree. 
In the north I see a mountain range, 
in the east a lake, 
in the west rising smoke. 

I can go down 

CLIMB TREE 

Okay! 

What am I to do? 

The situation now looks a lot better, since following the 
input of D for Down the only problem we still have is to 
decide which area we want to visit first. 

The statement "Okay!" tells us that the input has been 
understood and executed. Had that not been so, we should 
have received "I do not understand the verb" and the program 
would undoubtedly have caused us to use a different mode of 
expression. The same applies to to the object of our input. 

Conceivably there are two other answers. In one case we 
shall often receive the statement "I must be stupid, 
but....- I do not understand what you mean!" With this the 
program intends to tell us that the words used do belong to 
the programmed vocabulary, but that at the moment the 
command is not a sensible one: "Take key" will be 
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understood by the adventure program if a key appears in the 
adventure, but becomes meaningless if the key is not in the 
same space as the player . 

The position is similar with the second standard statement 
"You can't do that ...yet." Should we get this answer, we 
may breathe a sigh of relief, for we arB on the right way; 
the only thing is that not all the necessary conditions for 
execution of the command have been fulfilled. Thus a locked 
door cannot be opened unless we have the appropriate key. 



15 
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2.2 STANDARD FUNCTIONS OF THE ADVENTURES 

In an average adventure we Find 30 - 35 different three- 
dimensional spaces and in each space one or more objects. 
These objects in turn can contain other things, and as one 
never knows exactly what will be needed in the 
adventure, they take with them everything that gets into 
their hands and is not too heavy to carry . 

It becomes very difficult to maintain a perspective, since 
we naturally do not make notes. 

Fortunately programmers quickly recognized the situation, 
with the result that today after input of INUENTDRY every 
adventure prints out an the screen all the objects that we 
carry with us. 

Should the adventure be a friendly one or one written 
specially for beginners, it is possible for us in some 
situations to obtain tips, since then the command HELP may 
be implemented. 

As distinct from the standard input consisting of verb and 
object, what is involved here, as in the case of Inventory, 
is a one-word command that will initiate an action, but can 
do many things: 

"I would examine everything" shows our negligence. On the 
other hand the statement "A fairylike figure appears and 
writes the sentence "Open sesame" in the sand will in a 
confusing situation cause us to Jump for Joy. 

Things look worse if we havB to pay for the help: 
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A troll appears and says that we are having 10 points 
deducted For his help. He wants to know whether we need 
help. 

Presumably in such cases dark clouds will appear on the 
horizon. If on inputting "help" we get the message "Help is 
not provided for in this adventure! " or if in answer only the 
general playing instructions are repeated the we know help 
is not provided . 

No doubt it may be annoying if, despite all your efforts, 
you cannot move on when a certain point is reached, but no 
one should regard the last two examples as an act of malice 
on the part of the programmer. If the help function were 
guaranteed, some particularly clever people would solve the 
adventure in 30 minutes, but would never appreciate the 
fascination of such a program. 
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5.3 THE FIRST STEPS TO YOUR ADUENTURE 

The general structure of the adventure games is now known to 
us . We havB some idea of how our adventure has to present 
itself on the monitor and what functions we have to 
implement as standard. In what follows we shall therefore 
think about thB individual elements of our adventure system 
and about achieving them through our programming. 



2.3.1 SPACES in the adventure: 

The adventure world is composed of the spaces in the 
particular game concerned, that is to say each place that 
can be reached by the player wandering about in the 
adventure is called a space. It's size is totally 
irrelevant. As in our previous examples, it can be woods or 
the crown of a tree or the inside of a car or a mine. 

The individual spaces so far as the player is concerned are 
distinguished by their descriptions and their geographical 
arrangement; from the programming point of view, as we 
shall see, they are distinguished by their space number. 

All these spaces can be reached by the player and must 
therefore be Joined together in some way or other. In every 
adventure it is possible to move in the direction of all 
four cardinal points Cnorth, south, east and westD . Some 
allow movement also in a vertical plane. Needless to say, 
however, a situation in which the player leaves space 5 in a 
westerly direction, enters spacB 6 from the east, and 
wanting to return to space 5, cannot find a way in an 
easterly direction, or, worse still, gets into space 5 again 
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by moving dawn must not be allowed to arise. Here again the 
exception proves the rulB, for what would an adventure be 
without a magic maze? 



5. 3. 2 OBJECTS 

Host "spaces" have "objects" contained inside them. We must 
accommodate all objects in the spaces or, more correctly 
expressed, allocate a space to each object. With this 
allocation we automatically ensure that no objects are 
duplicated. 

A further problem that presents itself is the placement of 
objects that must not be in the adventure at the beginning 
of the game. Where do they stay until they appear? 

Let us assume that our hBro enters a space and that only an 
old, locked wooden box is discovered, it being the only 
visible object. 

Following the player's input "Open box" all the rules of the 
logic demand that the old, opened box should appear, filled 
possibly with silver coins. 

The solution to these problems will not present us with any 
particular difficulty. In our adventure we shall install an 
additional space, thB STOREROOM, and in it store all objects 
not presently being used. If we do not program any 
connections to this space, the player can never enter it. 
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2.3.3 INPUTS 

In this chapter me shell see how simple it is to program the 
storeroom and the entire adventure world; later on in thB 
book we shall see the need For further SPECIAL SPACES. 

As already seen from the preceding text, the player's inputs 
consist mostly of a verb and an object. Our program must 
therefore first test whether. the input is allowed, far which 
purpose separation into verb and object becomes essential. 
Should the player have written something incorrectly or 
should the verb used not be provided for, a suitable message 
must be given. If our adventure finds the input verb in its 
vocabulary again, the object must be checked in the same 
way . 

If both words are defined, the program can react in the 
manner prescribed. 

Ulhen compiling this vocabulary, the programmer must exercise 
particular care and anticipate all possible inputs that a 
player could make. If the player takes too long in making 
his wishes clear to the adventure, he will quickly lose 
interest . 



2.3.H MESSAGES 

Naturally the execution of a command must be made clear to 
the player. In the simplest case this is done with "O.K.", 
but usually additional messages are output. The most varied 
inputs often require the same answer, so the sensible thing 
to do is to make a table with specific standard messages. 
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2. H THE IDEA OF THE GAME 

Ulith this we have mastered the minimum of dull theory. Now 
me can switch on our Commodore 64 and begin some practical 
mark. Perhaps you already have some fixed idea of your 
first adventure. If not, allow yourself to be inspired by 
the following suggestions. 



1. THE HAUNTED HOUSE 

You receive a letter from your aunt, her last 
letter in which she bequeaths her old, palatial 
home to you . There is however a note that is 
supscious, a note to the effect that you should be 
careful , otherwise what happened to your uncle 
could happen to you . Such talk does not stop you 
visiting the house. Immediately you find all sorts 
of inconsistencies, you find a secret library with 
books on necromancy, and in the cellar discover a 
sacrificial alter. Innumerable ghosts make life 
difficult for you until you finally discover that 
one of your ancestors murdered the sect leader in 
order to increase his own power and by way of 
punishment was buried alive. You are now to help 
him to find eternal rest. 

2. THE OLD MAN'S LEBACY 

Your friend and neighbor, a famous scientist, has 
died in mysterious circumstances. You receive a 
note in which he asks you to complete his life's 
work . When you have managed to get into his 
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secret laboratory, it is your Job to put his 
supercomputer into operation. The computer then 
gives you Further information. 

3. STAR ODYSSEY 

Your spaceship is so badly damaged by a cosmic 
storm that you have to land on an unmanned station 
in order to get replacement parts to enable you to 
return to Earth. 

4. SOLD FEUER 

In the wilderness you meet a mortally mounded old 
man, mho tells you about his goldmine. He shows 
you a number of pieces dF gold and tells you that 
he has hidden more gold at several different places 
in the mine and that because he no longer needs it 
you may take it For yourselF. 

I should like to take the latter suggestion, an adventure 
involving a treasure hunt, as a basis For the next chapters 
in this book and elaborate upon it with you . Needless to 
say, you are Free to realize any idea oF your own, but in 
the case oF all examples still to be introduced I shall 
repeatedly make reference to Gold Fever. 
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3. PROGRAMMING YOUR ADVENTURE 



3.1 FORMING THE WORLD 

With the selection of the subject the rough course of events 
in the adventure is already established. In what follows we 
shall work out a number of structures and go on improving 
them until a world planned dawn to the last detail has been 
created . 

We shall do exactly the same with the programming; we shall 
build up our adventure step by step and repeatedly satisfy 
ourselves that the individual routines are functioning 
correctly . 

However, in order to be able, if necessary, to exchange or 
supplement individual parts of the program, I should like to 
ask you at this point to use only the specified line 
numbers . 



3.1.1 THE MAP 

At the beginning there is nothing. In what follows however 
we shall use our imagination to create the world so urgently 
needed for our game. What our world has to offer is 
determined by the subject. Gold Fever will presumably take 
place in and around a mine. 

Let us just imagine the mine: a fissured, boulder covered 
slope; a tool shed; wooden troughs bringing water from a 
mountain stream for washing the gold; rotten, dry wooden 



23 



ABACUS Software ADUENTURE BAIIEWRITER'S HANDBOOK 



beams lining the dark entrance; dark passages Full of 
danger . 

No doubt many similar pictures will easily occur to us and 
make us Find a suFFicient number oF spaces For the action 
planned . 

I should First like to limit our example to Just six spaces. 
Let us begin with a walk through a wood to the mine, where 
our task will be to look For the treasure. 

We can content ourselves with Finding all the treasure, but 
we can also set the adventurer to the task oF depositing the 
treasure in a saFe place. For the time being, however, lBt 
Finding the gold be enough. 

The task and objective has been Fixed, also two essential 
places, one the woods, which we shall build up out oF two 
spaces, and the other the mine. It is oF course clear to us 
that we cannot develop any action in this small world, For 
we need room in order to be able to hide a number oF objects 
and set a Few traps For the player. 

Normally a mine will not begin between the roots oF a tree; 
we must create suitable crossings in the landscape to make a 
realistic game possible. 

Three Further spaces provide us with suFFicient room For 
working out the First version oF our adventure, and we can 
now draw up a list oF all the places involved. 
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in the woods 

the edge of the moods, bound by a sloping rock face 

a clearing in the woods 

a clearing in the woods on the mountain slope 

the entrance to the mine 

To complete the program, the next step is to produce a map 
in which all the places are represented by rectangles. 
These are numbered consecutively and given their space 
description. Here we pay attention to the phrasing to allow 
for the line length of 40 characters of our Commodore 64. 
Our description must follow smoothly from the introductory 
text "I am". What number the individual space gets is of no 
importance. We have only to begin with one and go an 
counting consecutively, thus avoiding duplicate numbering. 
Following this we Join the spaces together and at each 
boundary note down the corresponding cardinal point . 

It can now readily be seen from this map that if for example 
the player is in space 3, the following messages have to be 
output on the monitor . 

"I am in the woods. In front of me there is a steep 
sloping rock face". 

In addition our map gives us information on the possible 
directions of movement: 

"I can move west, south." 
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a 


<s> 


FOREST AT ROCKY 
SLOPE 





<££ 



EHTER FOREST 
CLEARIMO 



For each space in our program uie could now program a 
condition such as ; if the player is in space 3, then print 
"I am in the woods. In front of me there is a steep sloping 
rock face.", but then wb should have soon filled the memory. 

The principle is however correct. We shall store the space 
descriptions in a field of variables, to which we sensibly 
give the name SPACE . 
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3.2 Uariables and Fields 



In order to store intermediate results or data relating to a 
program, variables are used in every computer language. 

These variables act like small pigeon holes in which 
something can be deposited for safekeeping. ThesB pigeon 
holes have names Cfile cabinet or desk drawer would be 
possible]. Then there are pigepn hales of the same kind: 
drawers 1,2,3, etc. in a desk, one below the other. Each 
pigeon hole is called a drawer and differs from the next 
only in its number. It is the same in Basic. Ule can give 
each variable a name of its own and an index number . This 
is then written in brackets behind the name of the variable. 

Here two fundamental types of variables can be distinquished . 

One takes only numbers, numbers that can be used for 

calculation, while the other is used for texts. The 

composition and length of the texts are not important, or, 

more precisely, we want to allow every character on our 

keyboard and lengths of up to 255 characters one after the 
other . 

A few examples of correct variables would be: A, Al, A2, 
TE1 Conly numbBrsD, TEXTS1 Cfor texts3 as simple variables, 
ACID, AC23, AC33 as subscripted variables. 

Perhaps you have already seen someone trying to brighten up 
their homes with letter cases filled with small miniatures 
Csuch cases were created far keeping the small letters used 
by printers]; let us bBginners now visualize each individual 
letter case as a variable. 
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To have a practical example immediately to hand, let us do 
the following, preferably only in thought: 

From our adventure map we cut out the rectangles of the 
individual spaces. We placB each of the rectangles in a 
separate case, taking care however to ensure that the 
earlier arrangement of the spaces is retained, that is to 
say our woods lies right at the top on the left, while the 
entrance tunnel is located in the second row on the left . 

To the question "Where is the mine?" we could answer "In the 
first column of the second row." Likewise the positions of 
all other spaces are determined by the row and column co- 
ordinates. In computer languages this arrangement is called 
a two-dimensional array . 

In BASIC we would call our letter case the variable field 
MAPS CS because texts are to be stored] and allocate the 
following contents to the individual variables: 

MAPS CI, 13 - "in the wood", first row, first column 

MAPS CI, 33 - "clearing in the wood", first row, third column 

MAPS C2.23 - "entrance to the mine" etc 

Therefore we input the following program text: 

500 REM SPACE DESCRIPTIONS 

501 SPACES C13 - "in the wood" 

502 SPACES C23 = "in the wood" 

503 SPACES C33 - "in the wood in front of a rocky 
slope" 

504 SPACES C43 - "in a clearing" 

505 SPACES C53 - "in a clearing at the foot of a 
mountain slope" 
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506 SPACES CB3 - "at the entrance tunnel to an aid 
mine" 

This establishes the spaces in our computer. The only thing 
missing is the character that moves in the programmed world 
and describes to us the situation in which it happens to be 
at any given moment. Its location will naturally be 
dependent on our inputs; therefore we introduce a further 
variable, which we will call PLAYER. This variable stores 
the player's position at any given time. 

Meaningful values for this variable are the figures one to 
six, since PRINT SPACES CPLAYER3 then prints out the 
respective descriptions of the location "space". For test 
purposes let us input the next lines: 

Note: I should like to ask you once again to retain the line 
numbers specified, as some of the lines are changed with the 
subsequent development and unused numbers are occupied by 
additional program lines! 



1140 PRINT"I am" 

1150 PRINT SPACES C PLAYER 3 

1330 INPUT "MOUE PLAYER INTO WHAT SPACE"; PLAYER 

5000 Q0T0 1140 

This makes reconnaissance in our world possible, but the 
method of progression is in no way satisfactory . We do not 
want to Jump at random from one space into another, but 
strive to take specific bearings from the cardinal points. 
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Normally the space Just visited by the player mill have at 
least one or a maximum of six exits. In the east space-S 
joins space-1. No exits lead in the directions north, 
south, and uiest or up and dawn. If we agree that the 
cardinal points are always named in the sequence N, S, W, E, 
UP and DOWN, space-1 can be specified as follows: 



in the wonds 



i "~ i 1^1 i 



Appropiately exits are not then marked by an x, but the 
space to be reached in this direction is explicitly 
indicated: 



1 in the woods 

2 in the woods 



0, 0, 0, 2, 0, 
0, 0, 1, 3, 0, 



These six values are stored in a variable for each space 
Clet us call it PASSAGED. Since here two different values 
Cspace and direction] indicate the space to be entered, 
storage in a two-dimensional array is appropriate, the row 
in each case being equal to the space and the columns, one 
to six, corresponding to the possible ways. 



SPACE 


N 


s 


W 


E 


UP 


D 


1 





. 





2 








2 








1 


3 








3 





4 


E 











4 


3 





5 











5 








E 


4 








6 











5 









It should not be difficult for anyone to program this 
direction table Calso called a travel table} . 
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Beginners who do not understand the next lines are asked to 
refer back to our previous example based on a printer's 
letter case. 

101 PASSABE CI, 13-0 : PASSABE CI, 23-0 

102 PASSABE CI ,33-0 : PASSABE CI, 43-2 

103 PASSABE CI, 5 3-0 : PASSABE CI, 6 3=0 

The above lines program the passage from space- 1 to space-2 
in an easterly direction. Ule could proceed likewise with 
the other spaces, but that would be very wasteful as memory 
is concerned Chow often do we write "passage"?3 . Moreover 
the immense amount of typing is not a particularly enjoyable 
job. 

For this reason we dispense with lines 101 to 103 and at 
this point prefer to use the commands DATA and READ. Please 
dBletB line 101-103 from your computer's memory. 
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3.3 READ & DATA 

Generally we use the INPUT instruction to pass data to a 
running program via the keyboard. It has the form INPUT UAR 
CUAR can be any desired variable}. For sequential inputting 
of several variables, DATA statements are used, Data 
separated by commas, is added to our program: INPUT LENGTH, 
WIDTH, HEIGHT can accordingly be three figures in the 
program listed one after the other, which are then 
available For Further processing. 

IF the data is known at the start oF the program, they can 
be incorporated directly into the program, which naturally 
makes sense only iF they are always the same For each 
program run. The keywords necessary For this purpose are 
READ and DATA. INPUT is replaced by READ: READ LENGTH, 
WIDTH, HEIGHT thereFore perForms the same Function, and the 
input data is stored with DATA 1, E, 3 in any desired 
program line. 

It is important to know that the data is read in sequence. 
Therefore the number of data in DATA lines must be equal to 
the number of variables in READ instructions, otherwise 
there will be an error message or not all the data will be 
read. 

IF the data is to be read in again, beginning with the First 
element, the command RESTORE must be used. 



ThereForB we input the Following lines into our 64: 
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500 REM SPACE DESCRIPTIONS 

501 DATA "IN THE WOOD" 
50S DATA "IN THE WOOD" 

503 DATA "IN THE WOOD IN FRONT OF A ROCKY SLOPE" 

504 DATA "IN A CLEARING IN THE WOOD" 

505 DATA "IN A CLEARING AT THE FOOT OF A MOUNTAIN 
SLOPE" 

505 DATA "BY THE ENTRANCE TUNNEL TO AN OLD MINE" 

ThB data must now be transferred to the mark variables. 
This allocation is done by READ SPACES CI3. C 1 3 takes the 
space numbers one to six in sequence. To avoid errors, the 
number of spaces must be known; we introduce the variable NS 
- number of spaces. They should be initialized right at the 
beginning of the program text . 

110 NS-6 

Using a loop the space descriptions are read in: 

815 FOR SPACE-1 TO NS 
850 READ SPACES C SPACE 3 
870 NEXT PAGE 

In the same manner our direction table is implemented; to 
keep an overall view, we write the direction values into 
respective data lines directly behind the space 
descriptions: 

500 REM SPACE DESCRIPTIONS 

501 DATA "IN THE WOOD", 0,0,0,E,0,0, 

502 DATA "IN THE WOOD", 0,0,1,3,0,0, 

503 DATA "IN THE WOOD IN FRONT OF A ROCKY SLOPE", 
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0, 4, E, 0,0,0 

504 DATA "IN A CLEARING IN THE WOOD", 3,0,5,0,0,0 

505 DATA "IN A CLEARING AT THE FOOT OF A MOUNTAIN SLOPE", 
0,0,6,4,0,0 

506 DATA "AT THE ENTRANCE TUNNEL TO AN OLD I1INE", 
0,0,0,5,0,0 

The possible exits must bB rend in together with the 
descriptions. Since six direction data items fallow each 
space, a second loop is constructed within the First: 

855 FOR DIR-1 TO 6 

860 READ PASSAGE CSPACE.DIR3 

865 NEXT DIR 



Accordingly each row oF our array is identical with a space; 
in the six columns oF each row are stored the space that the 
player can enter by inputting the direction concerned. 

With this arrangement it will be possible For us using a very 
simple method to achieve the player's progression. 

However, beFore the player can turn in any direction at all, 
he must be able to Find out which ways are available to him. 
ThereFore we must develop a number of program lines that 
print out the Free cardinal points on the screen. 

Let us assume that our principal character is at present in 
space 3 . 

Row 3 oF our direction table is now consulted: 
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SPACE 



UP 



1 5 

S 13 

3 4 S 

H 3 5 

5 B 1 

6 5 



All uib have to da is output the designations of those 
columns that contain no zeros; in our special example 
columns two and three, south and west. 

As we have established, the row in the field is identical 
with the space to be examined; to keep this actual space 
number ready, we have previously introduced the variable 
PLAYER. Therefore, to output the unblocked directions, our 
program must test the six directions of the space SP and 
print out the names of all columns that are not equal to 
zero . 

Six directions must be checked: 

1S50 FOR DIR-1 TO 6 

1560 IF PASSAGE CPLA, DIRDOO, THEN PRINT 

"** EXIT **" 

1310 NEXT DIR 

In a test run our program will now describe each space and 
indicate each possible exit, but unfortunately not its 
direction. Therefore we prepare a further field, a field 
with the designations of the direction CDIRS3: 
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1050 DATA NORTH, SOUTH, WEST, EAST, UP, DOWN 
1030 FOR DIR-1 TO B 
1010 READ DIRS CDIR3 
1050 NEXT DIR 

The designations of the six directions are stored in the 
individual elements, and uie can visualize the Field 
DIRECTIONS as a kind oF template that during the program run 
is placed on the actual row oF our direction table: 

1EB0 IF PASSAGE CPLAYER, DIR3O0 TEN PRINT 
DIRS CDIRD 

To chBck, we start our program and input a Few space numbers 
- a glance at our map will convince us that we have so Far 
done everything correctly . 

AFter these preparations we shall now make movement in our 
adventure possible. 

Anyone who has played an adventure game will know that 
inputting a cardinal point For the purpose oF progression is 
probably the most Frequent instruction given. ThereFore, as 
programmers, we should accommodate the player by regarding 
the inputting aF the initial letter as adequate, thus 
sparing the adventurer the task oF writing out ths cardinal 
points and accordingly pressing keys several hundreds oF 
times . 

In point oF Fact many adventure games can be Found that For 
movement have no routine For command decoding and need 
explicitly a SO WEST. 
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Let us first replace line 1390 in order to permit inputs to 
the adventure: 

1390 INPUT"UMAT AM I TO DO?"; ENTRYS 

Before our program carries out any instructions of the game, 
it should first check the length of the player input. If 
the input is longer than two letters, it will be a question 
of some action or other, otherwise the movement routines 
must be checked. This first tests whether the way in the 
desired direction is at all free. If it is, reference is 
made to the direction table under the appropriate direction 
C column 3 of the spaco in which the player happens to be and 
the new space is read off and allocated to the appropriate 
variable CplayerD. In conclusion the player is informed of 
the execution of the action. 

1080 PRINT 

1400 IF LENCEN$3>2 THEN 1500 

1410 IF ENS="N" AND PASSAGE CPLA, 13 <>0 THEN 

PLA=PASSAGECPLA,13: PRINT"0 .K . " : GOTO 1090 
14S0 IF ENI="S" AND PACPLA,SD<>0 THEN 

PLA-PACPLA , E3 : PR I NT "0 . K . " : G0T010B0 
1430 IF ENS""UI" AND PACPLA.33O0 THEN 

PLA-PACPLA, 33 : PR I NT "0 .K . " : G0T010B0 
1440 IF ENS="E" AND PACPLA.43O0 THEN 

PLA-PACPLA, 43 : PRINT"0 .K . " : G0T010B0 
1450 IF ENS="U" AND PACPI_A,53<>0 THEN 

PLA-PACPLA, 53 : PRINT"0 .K . " : G0T010B0 
1460 IF ENS="D" AND PA3PLA,B3<>0 THEN 

PLA-PACPLA, 63 : PRINT"0 .K . " : G0T010B0 
1470 PRINT"Y0U CAN'T GO THAT WAY": GOTO 1080 
1439 REM 
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At the beginning of each game me must naturally inform the 
program of the starting space: 

150 PLAYER- 1 

A short walk through our adventure world will now quickly 
convince us that uib must next tackle the matter of the 
monitor picture or after a few moves our ByBs will be 
presented with a confused picture of little informative 
value. 
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3.4 FORMATTING THE OUTPUT 

In order to obtain a clean screen imagB, thB screen must 
naturally be cleared at the start of the game: 

1070 PRINT CHRSC1473 
1080 PRINT 
5000 BOTO 1070 

Needless to say, this empty line is meaningless on an empty 
screen. It will always be essential after execution of a 
command, since our input and any communications that may 
have been given must be on separate lines. We achieve this 
scrolling by PRINTing into the last line on the screen; it 
is necessary at a conclusion to any move in the game. 

For our inputs we will use the lowest line. The question 
now facing us is how after autputting the information to the 
player in the top third of the screen we get to the last 
line. 

The Commodore 61 offers us two possibilities. We could for 
example use the cursor control commands. We could move the 
cursor down a suitable number of lines, but unfortunately 
this difference is dependent on thB amount of information 
output, that is the number of objects, and this value is not 
readily available during the game. 

What we need is thB "PRINT AT position" command, a^ command 
that in addition to the data to bs printed allows for the 
exact output position on the screen. Apparsntly our B4 lBts 
us down here. In actual fact it offers us ths same 
possibility as the IBM - PC or other IB-bit computers. It 
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is true, uie do not find it in the Commodore Basic, but it 
nevertheless exists, the so-called LOCATE command. This 
command positions the cursor at the required point before a 
PRINT operation. This is done by specifying the row and 
column, then positioning the cursor at that location. 

Our BASIC interpreter must during a screen output naturally 
known exactly where the cursor is and for this purpose has 
two storage points reserved for holding this data. We shall 
make use of this feature by SBeing that the VBry data we 
want is found by the interpreter at addresses 214 for the 
row and address 211 for the column. Then we use a 
subroutine in the interpreter to position the cursor at the 
point required. 

1390 POKE 214, 21 : POKE 211, : SYS 5B732 : 
INPUT "What am I to do?"; ENTRYS 

Our input is accordingly made in line 24, and the ensuring 
RETURN will push the entire contents of the screen one line 
up. For this reason no further measures have to be taken 
For communicating the messages to the player. 

Unfortunately all outputs are at the moment made in the 
lowest line on the screen, but the space descriptions must 
start at the top of the screen. 

1130 POKE 214,0 : POKE 211,0 : SYS 58732 

It will of course not be quite so easy for us to inform the 
adventurer of the free exits, since the procedure we have 
used so far does not allow for more than three exits to be 
output on the screen. 
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No word should go beyond the end of the line. The various 
cardinal points should be separated by a comma, and the 
sentence be ended with a period. 

Let us first alter line 1EB0 

1260 IF PASSAGE CPLA, DIR3-0 THEN SOTO 1310 

and let us base our further considerations on the fol lowing 
example: 

I MAY PROCEED NORTH, SOUTH, EAST, UP, DOWN. 

The first exit presents no difficulty for us; it can be 
printed out without any preliminary work. We have only to 
distinguish this first output from all further outputs, 
which is easily done. Thus the direction statement must 
always appear after "I may proceed" at the fourteenth 
printing position. Therefore: 

1270 IF POSC03-14 THEN PRINT DIRSC0IR3; 
: SOTO 1310 

In the case of the following direction statements however we 
must first carry out a test. It is important to know 
whether we are writing beyond the end of the line. Should 
this not be the case, we first print a comma and then the 
next cardinal point: 

12B0 IF P0SC03+LENCDISCDIRD 3 < 37 THEN 
PRINT", ":DIR$CDIRD; : SOTO 1310 
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Should the total length of output become greater than 37, 
comma and thB selection of thB next line are output by means 
of a PRINT command: 

1HS0 IF POSC03+LENCDISCDIR3 3 > = 37 THEN 
. PRINT ", " PRINT DISCDIR3; : GOTD 1310 



With that the line in our example would be print "DOWN" on 
the next line. This direction statement lies in a line 
range not yet interrogated by our conditions. A typical 
Feature oF this range is that it must have a printing 
position greater than two and smaller than sixteen: 

1300 IF P0SC03< IB AND P0SC03 >2 THEN PRINT ",": 
DIRS CDIR3;:S0T0 1310 

With these Four lines we have covered all possibilities. 
The Final period is in any case necessary only once and is 
therefore placed aFter leaving the loop: 

1310 NEXT DIR 
13B0 PRINT*'." 

Perhaps we need to explain why we need test the line length 
only up to 37 when aFter all a screen line goes From to 
39. You will Find the answer both in line 13S0 and in the 
comma in 12B0. 
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3 . 5 GOLD , S I LUER , AND OTHER USEFUL TH I NSS 

A walk through our adventure world so Far will have given 
the adventurer an impression of great desolation in a scene 
devoid of all interest, for after all no objects of ang kind 
necessary to the plot are available to him. Likewise with 
the best will in the world pure descriptions of places will 
not permit a game. Therefore let us take our map again and 
enrich our world with the objects required, generally 
restricting ourselves to objects important to the game. 
Finally we have to ensure that everything the player finds 
can be picked up and examined by him. None the less we 
cannot avoid placing at least one object in each spacB, 
since it is very doubtful that the adventurer sees nothing 
at all. If our imagination is not sufficient, the object 
concerned need be nothing in particular, a formula we so 
often find in adventure games because it reduces the amount 
of work involved, since in a normal woods trees, bushes, 
grass, insects, etc. really are nothing in particular. 

Often however even unnecessary things cannot be dispensed 
with, especially when they are part of the scene and the 
adventure is to give a realistic impression. 

Thus we too shall have to put trees in our woods, although 
the plot does not necessitate them. In space H, which 
already lies near the mountain range, a number of lumps of 
rock strengthen the impression of reality . Furthermore a 
minB calls for a shack, regardless of whether it is the mine 
owner's abode or a tool shed. Finally we must also hide the 
treasure somewhere or other. In addition a . number of 
objects more likely to harm the player than be of use to him 
are indicated. 
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Therefore in what follows I will put in more concrete form 
the plot I have in mind and select the objects required. 

3.6 GOLD FEUER: THE PLOT 

Uersion 1 sets the player the task of finding two 
treasures, pieces of gold and silver coins, in the 
area surrounding the mine. At the beginning of 
the game the player is supposed to be in the woods 
and first has ta move his way forward to the mine. 
On his way he discovers a hole in the ground with 
a heavy iron chest lying at the bottom. The chest 
contains the silver, but unfortunately it is 
secured to a heavy iron chain with a padlock and 
the key cannot be found anywhere. At the entrance 
to the mine however there are a number of iron 
bars strong enough to break the chain or burst the 
lock . Ule can also let thB player try using an 
explosive by letting him find dynamite in a wooden 
hut, a good opportunity for us to program a 
prematurB end for him. Ule deposit the pieces of 
gold in a rock cave inhabited to the player's 
dismay by a wild bear. The player will not 
however know this until he explores the cave. 
Should his greed for the yellow metal win and lead 
him to act fast, the bear, being hungry, will lose 
his fear of man, this, after the dynamite, being 
the second trap set for the adventure. 



On the other hand we all know that bears simply 
love honey, so let's place a Jar of it on a shelf 
in the hut. When the player, armed with the 
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honey, enters the cave, the bear will smell it and 
disappear with the Jar into the depths of the 
cave . Then nothing more stands in the way of a 
successful end to this miniadventure. 



The map to our adventure would now probably look something 
like this: 




^ 



MINE ENTRANCE 



IRON BARS 



0> 



M FOREST 



TREES 
PIECES OF HOCK 



<33> 



FOREST CLEARING 
MOUNTAIN CAVE 



CAVERN 
NUGGETS 
BEAR 



o> 



FOREST AT ROCKY 
SLOPE 



VOOD HUT 

SHELF 

BOTTLE 



ENTER FOREST 
CLEARING 



BUSHES 

HOLE 
SILVER 



Before we complete our adventure by programming the objects, 
we must give some further preliminary thought to the matter. 

To enable the player to get the feel of our computer world, 
the descriptions of this world will not consist of dry 
nouns, but we shall keep the player's interest alive with 
graphic portrayals. The statement "I see a bear" does, it 
is true, allow the player to play the adventure, but the 
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statement "I see an extremely-Ferocious looking bear" will 
on the other hand enable him to participate in our 
adventure . 

Now if it is the player's endeavor to find a new friend, an 
input such as "Stroke the extremely ferocious-looking bear" 
would, it is truB, be Basy Bnough for us as programmers to 
realize, but could not be expsctad of the playBr. Therefore 
in addition to its actual description we shall give each 
object a reference name. In this way we are able to fix the 
word length of our adventure as needed. Presumably you have 
noticed that professional adventures in the English-speaking 
world usually require only the first three or four letters 
to identify an action. If your game uses both capitals and 
small letters, please see that only capitals are used in the 
case of the reference names, as these contractions are later 
checked far uniformity with the player's inputs. 

These two fields, OBS for the object description and RNS for 
the reference names, are supplemented by a third field, OB, 
in which the number of the space in which the object 
concerned happens to be in is stored. This gives us a 
simple means of checking and manipulating the position of 
each objsct. So long as any particular object is not 
actively participating in the game, OB -0, otherwise the 
contents of OB correspond to the value of the variable 
PLAYER or equal -1 if the adventurer is carrying the object 
with him. 

The following DATA lines contain all the objects essBntial 
to the program CGold Fever, version 13. The figure at the 
end of each line indicates in what space the object is 
located at the start of the program. The quotation marks 
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are essential only if a comma is needed in the description 
of the object itself. 



300 REM 

301 DATA "LOTS OF BIO TREES", "TRE",1 

302 DATA "LOTS OF BIO TREES" , "TRE", 2 

303 DATA "SEUERAL PIECES OF ROCK ", ROC ,E 

304 DATA "AN OLD WOODEN HUT", HUT ,3 

305 DATA "A DIRTY JAR", "JAR",0 

306 DATA "HONEY", "HON", 

307 DATA "DATA A WOODEN BOX", "BOX", 3 
SOB DATA "A SHELF", "SHE",0 

303 DATA "SOME EXPLOSIUES", "EXP",0 

310 DATA "A HOLE IN THE GROUND", "HOL", 

311 DATA "A RUSTY IRON CHEST", "CHE",0 

312 DATA "»SILUER COINS*", "SIL", 

313 DATA "A CAUE", "CAU",5 

314 DATA "A FEROCIOUS LOOKING BEAR", "BEA",0 

315 DATA "LOTS OF SHALL BUSHES", "BUS", 4 

316 DATA "SEUERAL IRON BARS", "BAR", 6 

317 DATA "«NUGGETS»", "NUB", 5 

Exactly as in the case of the space descriptions uie must 
also determine the number of objects before initializing the 
variables for object descriptions C0BS3, reference names 
CRNSD, and positions COBD: 

120 AC-17 

ISO DIM SP$CNS3,PACNS,6D,OB$CA03,RNSCAO],OBCA03 

830 FOR OB- 1 TO AO 

B35 READ OBSCOB] .RNSC0B3 ,0BE0B3 

B40 NEXT 
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To store all the objects, 17 subscripted variables are 
necessary, the storage location for thesB being provided by 
the OIMensioning instruction in line 190. 

How do we make the arrangement of a space visible to the 
player? Well, quite simply: the variable PLAYER contains 
thB number of the space entered, while 0BC3 contains the 
space numbers of the respective objects. Using a loop, for 
all objects, we test whether this position number is the 
same as the actual space number: 

1160 PRINT "I SEE "; 

1170 FOR 1=1 TO A0 

1180 IF 0BCI3OPLAYER THEN 1E10 

1130 IF POSC03+LENCOBSCID+B3 < -39 THEN PRINT 

0BSCID:", "; .-GOTO 1210 

1210 NEXT I 

1530 PRINT 

Program line 1180 tests each object to see whether it is in 
a space other than the one in which the player happens to 
be. If this test proves to be positive, the next object is 
immediately checked, otherwise the object description 
concerned is output in line 1180. The semicolon ensures 
that a new output will be on the same line. WE now add: 

1200 IF P0SC0]+LENC0BSCn+2> 38 THEN PRINT : GOTO 
1180 

BeforB the next object is output, the total length of the 
printout is calculated. If by printing the object 
description, the comma, and the blank between two objects 
Ctherefore +23 the cursor were to reach a position greater 
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than column 39, a line Feed mould be triggered. Then the 
program branches to line 1190 again, the condition is 
fulfilled, and the description is printed out. The comma 
behind the last object however is unsightly, so we move the 
cursor two positions to the left and print a period. 

12S0 PRINT CHRSC157^;CHR$C157D;•*. , * 

In order to obtain the screen structure of the original 
American adventures, we still need a separating line and 
another blank line: 

1010 BLANKS-" 

» 

1E30 PRINT BLANKS 

1330 PRINT " " 



A final problem will be found after several inputs. The 
communications within the lower half of the screen keep on 
traveling up and after a few moves get mixed up with the 
descriptions of the environment. Before the communications 
are output it is the Job of the program to erase the 
uppermost lines. This can be done by printing an adequate 
number af blank lines: 

1090 POKE SI 1,0: POKE £14,0: SYS 5B732 
1100 FOR LINE-1 TO 10 
1110 PRINT BLANKS 
1180 NEXT LINE 

Before we now program the actual game and occupy ourselves 
with the actions in the program not visible to a player, we 
must quickly input the additional verbs necessary for such 
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actions. In addition to a series of verbs that are always 
required, such as Examine, Take, Discard, the additional 
verbs mill depend on the contents of the adventure 
concerned. The implementation is carried out according to 
thB word length determined for the adventure: 

130 AU=7 

200 REH UERBS 

SOI DATA EXAMINE 
E01 DATA TAKE 
203 DATA DROP 
801 DATA OPEN 

205 DATA USE 

206 DATA DESTROY 

207 DATA LIBHT 
BIO FOR 1=1 TO AU 
815 READ UERSSCID 
B20 NEXT I 

We can also make the picture more attractive with a few 
additions. Different colors will help us to differentiate 
between the diverse communications sent during the game. I 
have decided on a black background on which the principal 
character's communications to us are output in light blue 
and our inputs are made in white. Naturally you are free to 
use other control codes, according to your taste. 



10 PRINT CHRSC147D 

11 POKE 532B0, 12: POKE 532B1 , 11 

12 PRINT CHRSCISH 

1330 PRINT CHRC5J:" 
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1390 POKE B11,0:P0KE E14,24:SYS 5873E: PRINTCHRSC53 ; 
.•INPUT "UIHAT AM I TO DO"; ENS: PRINTCHRSC155D ; 

Ule have thus reached the external Form described in the 
First chapter oF this book and mill now establish the 
playing performance oF our program. 
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3.7 ANALYSIS OF THE INPUTS 

Changes in direction required by the player, a group of 
commands with word lengths of one or two letters, are 
already being recognized and correctly executed. The 
standard input however always consists of a verb and an 
object, the word lengths, apart form the minimum word length 
necessary for recognition of the terms, are not being 
subject to any restrictions. In order to be able to react 
as required by the player, our program must check his input: 

Has the verb used been programmed? 
Has the object been provided for? 

If both questions can be answered in the affirmative, the 
input is broken down into a verb and an object and the verb 
and object numbers are determined; if the costituent parts 
of the input are not defined, an appropriate communication 
is output to the adventurer. 



3.7.1 STRING! MANIPULATION 

The essential difference between a computer and a programmed 
packet calculator is the ability of the computer to deal 
with texts. Naturally a computer has no understanding of 
texts, but interprets them as a collection of specific 
characters, what is known as a character string. Strings 
arB generally combinations of all characters that can be 
input via a keyboard. The computer provides a series of 
functions for manipulating these character strings. 
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In the case of our Commodore 64 these functions include not 
only a series of conversion commands such as UALC3 and 
STRSC3 that converts a figure into a string or a string into 
a figure, but also the commands LEFTS, RIGHTS, and tllDS. 

These three functions provide a precisely defined partial 
string out of the total character string for further 
processing by the program. Thus the function 
LEFTSC"ABCDEF",33 produces a string comprising the three 
lefthand characters, that is the substring ABC. Therefore 
the character string to be processed and the number of 
letters required must, as necessary parameters, first be 
transmitted with the input function. The same applies to 
RIGHTS. (1IDSCXS, S, X3, beginning with position S, provides 
us with a string X characters long of XS . Thus for example 
our adventure program will ascertain the positions of the 
blank character between verb and object and then with LEFTS 
and RIGHTS ascertain these from the player's INPUTS. In 
order to calculate the number of letters necessary, the 
total length of the input must first be ascertained with 
LENC INPUTS 3. 

If an input is not executed in lines 1290 to 1310, it is 
assumed, if the length of the input is less than three 
letters, that an input error has been made. Since "No exit 
leads there! " has been output, a new move by the player 
begins . 

If a longer input is involved, the program run is continued 
with line B000: 
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1470 IF LENCENTRYS3 < 3 THEN PR I NT "YOU CAN'T GO 

THAT WAY! " : 60T010B0 

5000 LN-LENCENTRYS3 

E010 FDR EL-1 TO LN 

2020 TESTS-fllOSCENTRYS.EL, 13 

2030 IF TESTSO" " THEN NEXT EL 

When the length of the total input has been ascertained, 
each letter beginning From the left, is checked using a loop 
to see whether it is a space. When the space character is 
Found, the length oF the verb is established Cpreviously 
checked character minus 13 and the verb can be allocated to 
the variable EOS. After the remaining length has been 
ascertained, the object can be transFerred to the variable 
EOS. 

IF a "one-word command" was used CHELP3, the residual length 
will be less than zero. Since no abject has to be provided 
For Further processing, branching is made direct Cline 20603 
to verb analysis Cline 20303: 

2040 EUS=LEFTSCENTRY$,33 

2050 RL - LN-EL 

2060 IF RL<0 THEN 2030 

2070 E0S-RIBHTSCENTRYS.RL3 

2080 EO$=I_EFT$CEO$,33 

2030 FOR UN=1 TO AU 

2100 IF EU$'=UERBSCUN3 THEN 2130 

2110 NEXT UN 

Within the loop the text oF the First word input is compared 
with the verbs that are possible in the game. IF an 
identical string is Found, the loop index corresponds to the 
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verb number and the loop is exited. IF the loop has been 
completely exhausted and no identity found, this means that 
the programmer did not provide the verb concerned. The 
player is informed of this: 

2120 PRINT "I DO NOT UNDERSTAND THE UERB!":G0T0 
1080 

The object number is then ascertained using the same 
principle: 



2130 FDR N-l TO AO 

2140 IF E0S-RNSCN3 THEN 5000 

2150 NEXT N 

21B0 PRINT "I DO NOT KNOW THIS OBJECT! 



:GDTD 1080 



By creating these lines, we have put a substantial part of 
our development work behind us. The above routines ensures 
that the scrsen is attractively structured, Just as they 
also create "understanding" for the player's input. 

They ascertain which of the possible verbs the adventurer 
has used and with which object he would like to do something 
with. This makes it possible to branch the program sequence 
to a program line provided for execution of the action 
concerned . BecausB of these central control tasks this part 
of the program is also called DRIUER. 
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3.B SUMtlARY: PRDBRAM STRUCTURE 

It now becomes clear that our adventure programs consist 
essentially of three parts: 

1 . The adventure data 

B . The adventure driver 

3. The execution of the moves in the game 



1 . The data used as a basis for the game is 
transferred to the work variables at the start of 
the program . 

H. The control of the entire program sequence 
falls to the driver. The driver structures the 
screen output, takes over the player's inputs, 
evaluates them, and initiates the execution of the 
commands. It is independent of the particular 
adventure concerned and is used in all adventures. 

3. The third part of the program is the actual 

adventure. If all the conditions necessary to a 

plot are fulfilled, the action concerned is 
carried out. 

In order to maintain a perspective, the structure of our 
test adventures is represented schematically, the line 
numbers available are also specified. , 
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INITIALIZATION 

100 BOO CONTROL UARIABLE INITIALIZATION 

200 300 UERBS 

300 500 OBJECT DESCRIPTION AND POSITION OF OBJECT 

500 BOO ROOM DESCRIPTION 

900 1000 OTHER UARIABLE INITIALIZATION 

ADUENTURE MOUEMENT 

1000 1070 DIRECTION INITIALIZATION 

10B0 1330 SCREEN SETUP 

1390 PLAYER'S INPUT 

1400 1500 MOUE PLAYER 

2000 3000 ANALYZE INPUT 

EXECUTION 

5000 30000 tlOUES 

For the extensions to be provided later there are enough 
unused line numbers available in the individual blocks. 

Ule shall see how this concept can easily be extended to an 
adventure interpreter or used far realizing graphic 
adventures . 

Thus we shall be able to use the driver almost unchanged and 
have only to modify the remaining parts of the program. 
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3.9 WHEN CAN ACTIONS BE PERFORMED? 

Let us now visualize the player who wants to find our two 
treasures. At a glance he establishes that hB is in the 
middle of a woods, surrounded by trees and lumps of rock. 
As a proficient adventure player or reader of the previous 
chapters, he knows that what he is looking for can lie 
hiddBn in the most inconcpicuous or commonplace things. 

How will he react? 

Ulhat inputs must we expBct? 

In all probability he will try to proceed with instructions 
such as EXAMINE WOOD, EXAMINE TREE, or EXAMINE LUMPS OF 
ROCK. 

TAKE TREE is less probable, but nevertheless, in order to 
take the wind out of the sails of all critics of our 
programs, we must program a statement such as "I am not that 
strong." In addition thers are many statements that show 
that an input really was understood and encourage the player 
to go on playing. 

Understandably, if the result of every second or third input 
were a "I do not know what yau mean!", i..iere would be a very 
great inducement to switch ths computer off. 

Therefore in the case of spaces 1 and S, because we have not 
provided for any action hers, but only want to make our 
world bigger, we shall provide only for the output of 
various messages to thB player, a task quickly dealt with by 
a print command. However, after the player has Bntsred 
space 3 and discovered the wooden hut, he will take a close 
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look at this and at the same time discover the shelf with 
the Jar. Naturally, in addition to the shelf and the hut, 
the jar must appear in the description of the scene C"I see 
input TAKE JAR could give us more headaches: the Jar that 
has Just appeared must now disappear. It cannot go back to 
its old place, for when our player makes an INUENTORY, it 
too must of course be listed. 

During the course of play the player cannot examine the Jar 
in space 1 or space 2. In general all inputs relating to 
the Jar should be answered in the negative so long as the 
Jar is not in the immediate vicinity of the player. 

This however is a matter of taste that lies within the 
programmer's discretion, since he may hold the view that in 
reality the Jar has stood on the shelf untouched since time 
immemorial and that the player has not yet seen it . 

If however the player is compelled by the many surprises 
held in an adventure when he starts all over again, he knows 
the starting position of various objects and one can readily 
make it possible for him to take them, even though they were 
not listed in the line "I see ...". 

Actually the process of taking is made even easier to 

program as a result. Finally there is one more condition to 

check, but we will do like most adventure producers and let 
only visible objects be available. 

Thus the wooden hut cannot be examined by our principal 
character unless it is within rBach . Ule shall not discover 
the honey until we have picked up the Jar and opened it. 
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BeForB any command is Bxecuted, all these conditions must 
First be checked to see whether they are correct. Even our 
short adventure with only six spaces will accordingly 
necessitate many program lines. IF we consider only thB 
verbs introduced at this stags oF ths developmsnt C examine, 
take, discard, open, use, destroy] and qur seventeen 
objects, we already have to program actions For 105 
diFFerent player inputs. IF we were to enter all the 
program lines without any special structure one aFter the 
other, it would be easy to explain very long program 
execution times. ThereFore we shall now split up into 
several blocks, the part oF the program to be produced. 

In principal there are two possibilities open to us. In one 
case we could reserve a suFFicient number oF program lines 
For each space and reserve a Few statements there For Bvery 
possible action taken by the player. This technique is 
chosen very oFtBn and also has the advantage, owing to the 
direct execution oF a command, which oF course does not have 
to be prepared beForehand in any way, that it is very Fast 
and above all that a vsry clear program is produced, a 
program that can be conveniently and easily extended or 
edited without reference to any lists. Should you ever want 
to occupy yourselF with this exBcution oF an adventure 
program, the Following realization oF our space 1 should 
suFFice as a stimulus. Nots that it is an Example that has 
nothing to do with our concept. ThereFore please do not 
overwrite any oF the lines in the program we have so Far 
produced . 
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10 REM EXAMPLE DO NOT ENTER THESE LINES 

100 INPUT "WHAT SHALL I DO";ENTRY$ 

BOO REM 

300 ON SP SOTO 1000,2000,3000,4000,5000,6000 

1000 PRINT CHRSC 1473: REM ROOM 1 

1010 PRINT "I AH IN THE WOOD!" 

1050 PRINT "I SEE LOTS OF BIS TREES" 

1040 REM 

1100 PRINT "I EAN GO SOUTH, EAST" 

lHOO IF ENTRY$="S" THEN R00n=6: G0T0100 

1210 IF ENTRY$="E" THEN R00I1-2: G0T0100 

12B0 IF LENCENTRYSDO THEN PRINT "YOU CAN'T SO 

THAT WAY" 
1300 IF ENTRYS-"INU" OR "INUENTORY" THEN 200 
1400 IF UES-"EXA" AND OBS-"TRE" THEN PR I NT "I SEE 

NOTHING SPECIAL" : G0T0100 
1410 IF UE$="TAU" AND OB$="TRE" THEN PRINT"I 'H NOT 

THAT STR0NS":GDT0100 
1333 PR I NT "I DO NOT UNDERSTAND WHAT YOU 

MEAN": GOTO 100 
2000 REM R00ri2 
3000 REN R00N3 

If you have had a look at the above lines or even input them 
into your CB4, you will find that a workable adventure can 
be created in a very simple way and you will perhaps ask 
yourself why we have not used this concept, seeing that it 
can be understood without lengthy comments. 

On the one hand, very involved adventures require far more 
memory, for it is not possible for us avoid listing 
identical routines several times, since, sticking to a known 
example, we should have to be able to deposit the Jar in 
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every space Csix identical program linesD, not forgetting 
that we should also have to be able to take it again. In 
our adventure system all of two program lines are used, in 
contrast to these tuielve. That alone should be enough to 
quickly invalidate the argument of clarity and editing 
friendliness. 

Imagine if as an extension to the adventure further Jars are 
needed to continue the plot, for this or some other reason 
we prefer to make a small wooden barrel out of the Jar. If 
at this point your adventure already had forty spaces, you 
may now make "Take barrel" out of "Take Jar" in the 
corresponding number of lines. The same applies to "Discard 
Jar", "Open Jar", etc. If on the other hand you have stuck 
to our adventure system, you simply alter line 305 and there 
you are! 

Let us forget this method and come back to our adventure . 
Ue let the plot unfold in precisely defined program lines, 
but now each block contains the treatment of one verb. 

Our driver has already established the verb and object 
numbers. Therefore we can specifically transfer these 
blocks. Thus the sensible thing to do is to assign program 
lines beginning with 5000 to all lines used in the execution 
of the command "Examine", the action "Take" accordingly 
being realized from line 6000. 

The program sequence is controlled by the adventure driver 
with the aid of the verb number in line 2200: 

2200 ON UN GOTO 5000,6000,7000,8000,9000,10000 
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Ulith program line 5000 the block EXAMINE now begins. It is 
easy to see that it is here that the greatest amount of work 
is asked of us. 

It is not only that after EXAMINE but the message "IN THE 
HUT THERE IS AN OLD SHELF" must be output and the shelf must 
appear as a variable object. Now, uie must also make sure 
that the hut is available at the space Just visited and, if 
necessary, must send a communication such as "I DO NOT SEE 
ANYTHING LIKE THAT HERE" to the player. 

These considerations already show the work involved in 
adventure programming. Fortunately however many different 
player inputs can be answered by one and the same program 
line. 

Thus the program part dealing with the player's examining 
actions will first check whether the object on which further 
information is required is within the player's reach and 
accordingly in the same space or even in his possession, 
otherwise the input of the next move can be started at once: 

5000 IF OBCND <>PL AND OBCND <> - 1 THEN SOTO 5300 

5300 REM OBJECT NOT PRESENT 

5304?"I KNOW THAT OBJECT": GOTO 10B0 

5330 PRINT "I DO NOT SEE ANYTHING LIKE THAT 

HERE! ": GOTO 10B0 
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3.10 THE CONDITIONS 

Apart from two conditions previously mentioned, a number of 
other prerequisites can be formulated without which it will 
not be possible to realize an adventure: 

Object is in the space 

Object is being carried by the player 

Object is not in the space 

Flag is set 

Flag is not set 

Player is in a specific space 

As we shall see later, this list does not claim to be 
complete. It is conceivable for example that the last 
condition may be inverted or that certain actions cannot be 
executed in a particular space, but probably in every other 
space . 

The flags that have cropped up at this point need 
explanation. These are signal switches that we want to 
realize by means of a further field, but these field 
variables must not be able to assume more than two states: 
either a flag is set, in which case the contents of the 
variables must be -1, or it is not set, which must 
correspond to a zero. These flags are used in our adventure 
to identify certain states: 

Is a door open or closed? 

Was an obstacle removed or not? 

Is a monster to put an end to the player's doings 

or may the player carry on? 
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In the practice however the formulation of a single 
condition will not usually suffice to classify the situation 
unequivocally, so logical interconnections of several 
conditions become necessary in order to ensure that certain 
actions are not carried out haphazardly and at the wrong 
times. 

These logical operations will be AND or OR operations. In 
the case of our adventure practice this means that either 
both CAND3 or only the one or the other COR 3 of two or more 
interconnections have to be fulfilled. If we cannot 
dispense with more than two conditions, bracketing will 
usually be imperative. An example will make this clear: 

Let us think about the explosive in our box. It 
is intended to be used in the case of over-hasty 
players to spoil the pleasure they derive From 
getting done fast. For reasons of Fairness 
however a warning of the risk of explosion is 
perfectly appropriate, so following "Examine 
Bxplosive" the statement "It looks very explosive" 
must be output. If the player then still tries to 
take the explosive, he himself is to blame for his 
end. 

If the player has actually made the above input, 
the driver will make the numbers 1 CexamineD and 9 
texplosivel available. The problem that now faces 
us is that we cannot rest content with checking a 
space, for we must not Forget that the player, it 
is true, is not able to pick up the explosive and 
take it with him, but can pick up the box and take 
it with him, and iF he takes the box with him, he 
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has the explosive as well with him. Let us 
therefore chBck whether the player meant to takB 
the explosive AND at the same time whether the 
wooden box Cobject number 73 is in the space Just 
visited OR in the adventure's inventory. The 
actual object in the plot Cnumber 93 is not 
available. Therefore after line 5000, the program 
sequence is continued with line 5908. 

Therefore the execution of the command "ExaminB 
explosive" must bB formulated as follows: 

5904 IFN"9AN0C0BC73=PL0R OBC73 — 13 THEN PRINT "IT 
LOOKS UERY EXPLOSIUE! " : GOTO 1090 
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3.11 THE ACTIONS 

The previous example has made the execution of the simple 
action, the output of a communication to the player, clear 
to us. 

Usually however this print command is only an accessory to 
other actions, such as manipulations of DBC3, used as 
feedback to give the adventurer confirmation of the 
execution of the command . 

Commands such as TAKE, DRDP, DESTROY, and OPEN aluiays mean a 
change of location for an object. Either the object is 
taken by the player along with him or goes into the 
inventory of a particular space. Perhaps it disappears 
completely from the game. Just imaginB the amazement of the 
person playing Gold Fever if the bear has obviously eaten 
the honey, but the full Jar can still be found somewhere! 

Another, frequently required action is the setting or 
resetting of the previously mentioned flags in order 
to create the prerequisites for later actions. 

We must not forget any conditional changes in location of 
the player initiated by magic or harmless actions. A 
subsequent extension to Gold Fever could make a gigantic 
maze of passages out of the bear's cave, and after "Examine 
cave" the player finds himself in the middle of the cave, 
even though he has not entered the cave by a movement in the 
direction of the appropriate cardinal point. The increased 
amount of programming work however will make our adventure 
only more realistic, for how is one supposed to explore a 
cave thoroughly without entering it? 
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As with the conditions, uie can compile a list of possible 
actions in this case, but such a list cannot claim to be 
complete. It does however provide an adequate basis, and it 
is possible to write good adventures with Just the 
conditions and actions presented. 

Output communication to the player 

Object disappears 

Object comes into the inventory 

Object reappears in the space 

Flag is set 

Flag is deleted 

Player is transferred to another space 
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3.12 PROGRAMMING THE EXECUTION OF THE COMMANDS 

Below you mill find information on various special features 
that have ta be observed in the case of some particular 
commands. I shall explain only a few typical program lines. 
Please obtain the remaining lines from the listing of the 
miniversion of Gold Fever at the end of this chapter . 

3.12.1 ACTION: EXAMINE 

First it is an established fact that the result of examining 
an object is always communicated in the form of a sentence. 

Often it will be one and the same sentence CI see nothing in 
particular], for which reason wb do not output the 
communications direct to the player in such cases, but 
allocate the text at the start of the program to a variable 
and in duB course print out its contents. 

Since we have only GO characters available For a BASIC line 
and have also to formulate the conditions in thB line 
concerned, we shall sometimes not be able to avoid preparing 
a number of messages that are needed only once. 

600 REM COMMUNICATIONS 

601 MS$C13-"I CANNDT SEE ANYTHING IN PARTICULAR". 

602 MSSC23-"I AM NOT THAT STRONG". 

603 MS$C33-"UHAT DO YOU MEAN?" 

604 MSSC43="THE BEAR TAKES THE HONEY AND" 

605 MSSC S3- "DISAPPEARS INTO THE DEPTHS OF THE 
CAUE". 
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Line 5000 has already been explained. By checking the value 
in 0BC3, it ensures that the actual object concerned is in 
the player's vicinity. 

IF this is so, the program line appropriate to this object 
is ascertained from the abject number N. IF all the 
conditions programmed there have been FulFilled, the rest oF 
the line is exhausted and the program then continues with 
the rest oF the screen image: 

500S IF N=l THEN PRINT MSSC13: B0T0 10B0 

5003 IF N=3 THEN PRINT MSSC13: GOTO 1080 

5004 IF N=4 THEN PRINT "IN A CORNER THERE IS A 
SHELF". : OB C 8 3 -PL: GOTO 1080 

On examining the wooden hut CN-43 the playBr discovers the 
shelF. This was in space 0, the storeroom, and is now 
positioned in the player's space, so in lines 1170 to 1210 
the adventure driver outputs, among other things, "a shelF". 

As in the case oF the shelF, however, it is conceivable that 
an object may turn up that is aFterwards taken by the 
player. 

Then a Formulation as in 5004 would no longer be adequate, 
as in the event oF any Further examination oF the shelF the 
jar would automatically be takBn out oF the inventory and 
put back in the space. 

We can avoid this mistake only iF we First make sure that 
the jar has not yet been in the game and accordingly is 
still in the storeroom. 
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5008 IF N-B AND 0BC5D-0 THEN PRINT "ON THE 

SHELF THERE IS A JAR . " : 0BC5D=PL 

:B0T0 1080 
5003 IF N=B AND 0BC53O0 THEN PRINT HSSC 

13: SOTO 10B0 

In all further examinations of the shelf the player will not 
find anything else in particular Cline 50033. 

A further example will show the use of the flags. WhBn the 
player has found the treasure chest, he will see that it is 
secured with an iron chain. After he has removed this 
obstacle, the chest must of course be opened before the 
valuable contents can be seen. To make these three states 
clear to the player, it would be possible to introduce 
further objects, such as a chest secured with an iron chain, 
an unsecured chest, and an open chest. This very great 
volume of programming work, which incidentally of course 
restricts the storage location available, can be avoided by 
using signal switches. It would be sensible of you to draw 
up a table during the construction of your adventure, so 
that you really do set the correct flags: 



Flag 



-1 



1 Chain intact Chain destroyed 

H Chest closed Chest open 



You may now ask: Why of all values we use C-13 and not 
another value? Or why not only one flag with various figures 
for every passible state? 
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The reason is we make use af the Fact that in the case of 
thB BASIC interpreter a TRUTH is always represented by a -1, 
so in the IF statements we da not have to specify any 
comparative values .- 

IF FLC13=-1 corresponds to IF FLC13 

IF FLC13-0 corresponds to IF NOT FLC13 

Accordingly the following lines apply to our example: 

5011 IFN=11ANDN0TFLC13 THENPRINT"IT IS 
SECURED WITH AN IRON CHAIN.": GOTO 10B0 

5012 IF N-11ANDFLC13ANDNOTFLC23THENPRINT 
"I CAN'T SEE ANYTHING FR0H THE 
OUTS I DE . " : GOTO 1 0B0 

5013 IF N=11ANDFLC13ANDFLC23THENPRINT"IT 
IS FULL OF SILUER COINS .": 0BC123=PLG: 
GOTO 1080 

A Further point to which we must pay special attention finds 
its Justification in the layout of our word analysis. 

The completely identical objects 1 and 2 form part of the 
equipment af the first two spaces. When the input of the 
game is checked, it will never be possible to ascertain any 
other object number than a 1, which number, in the event 
that the player is located in space 2, does not correspond 
to the facts. 

In order to be able to acknowledge input errors correctly, 
we used line 5901, which now enables us to handle these 
special cases. 
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Thus uie solve the problem "Examine trees" for space S in the 
following manner: 

5901 IF N-l AND PL=2 THEN PRINT nSSClD:B0T0 10B0 
5310 IFN=1ANDPL=5AND0BC143=5THENPRINT "I SEEM TO 
WHET HIS APPETITE. " : BOTO 1080 

To conclude the routine, we must provide a last line 
executed without any condition if none of the conditions was 
fulfilled in any of the preceding program lines. With this 
undefined game inputs are intercepted and, if no applicable 
condition is found, we prevent the lines of the other verbs 
from being exhausted and accordingly prevents the program 
from getting out of control. Even if we forget an action 
that is not necessary to the development of the adventure, a 
player will never notice this: 

5990 PRINT "I DO NOT SEE ANYTHING LIKE THAT 
HERE! " : SOTO 10B0 
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3.12.2 ACTION: TAKE 

Exactly as the player can examine only an object that is 
near him, he will not be able to take such an object unless 
it is either in the same space as the player or in his 
pocket . 

6000 IF OBCNDO PL AND 0BCN3O-1 THEN GOTO B900 

Accordingly it would be quite simple to execute this 
command, but with a few objects we should deny the 
adventurer his wish. 

Thus we should allow for this fact that a completely full 
iron chest is presumably too heavy far only onB person. 
Likewise we cannot ignore even stupid attempts on the part 
of the player such as "Take tree." 

6001 IF N-l THEN PRINT I1SSC23:G0T0 10B0 
BOOS IF N-ll THEN PRINT flSS C 2 3 : GOTO 10B0 

Naturally things can get even worse, for we must of course 
set a sufficient number of traps for the player, so that 
victory is not made too easy for him. Thus according to our 
script touching the explosive should lead to an explosion 
and accordingly end the game. The same applies if the 
player tries to seize the nuggets without first offering the 
bear a tidbit. It would be equally fatal for the player to 
attempt to take the bear.- 
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B015 IF N=l AND PL-5 THEN MSSC03-"THE BEAR HAS 

KILLED I1E.'*:B0T0 4500 
B01B IF N-17 AND NOT PLC33 THEN MSSC03="THE BEAR IS 

ATTACKING I1E . " : GOTO 4500 
B300 IF N=S THEN MSSC03="IT EXPLODED WHEN I TOUCHED 
IT! ":GOTO 4500 

Nate: In line 4500 a routine begins that is called up when 
the game is lost. flSSCO] is provided is this routine For an 
explanatory message. 

Flag 3 is set when the bear is in possession oF the honey . 

IF there is nothing to stop the player enriching himselF 
with any oF the objects used in our adventure, we have only 
to allocate the new place number, a -1, to the object: 

B010 IF N-5 THEN 0BC53— 1 : PRINT"0 .K. " : GOTO 10B0 
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3.12.3 ACTION: DISCARD 

Some time or other the player will want to get rid of these 
objects, either because we as programmers have limited his 
carrying capacity or because he wants to use them in some 
way or other. 

In practice the "Discard" routine hardly raises any 
problems. Over and above that it is convincing in its 
shortness, For the bnly prerequisite is that the object to 
be discarded is in the player's possession, which is tested 
in line 7005 in respect of all objects: 

7005 IF 0BCN3O-1 THEN PRINT"BUT I DON'T HAUE 
ANYTHING LIKE THAT.":B0T0 1080 
7900 0BCN3-PL:PRINT"0.K.*':S0T0 10B0 

Mistakes made by the playBr are immediately recognized and 

accordingly acknowledged . IF the object was in the 

inventory, a new location is allocated to it with an 
alteration oF the contents oF 0BC3. 

In principal these two lines are enough, but it may be 
necessary to carry out Further reactions in addition to the 
position change. Thus in Bold-Fever we arranged For the 
bear to take the jar and disappear with it into the depths 
oF the cave. Naturally this action must be carried out only 
iF the player happens to be in space 5. At all other spaces 
the operation is likewise executed by line 7900. 

70B0 IFN-5ANDPL-5 THEN 0BC5D-0: FLC3D — 1: 
PRINTU)SSC43:PRINTTriSSC53:OBC 143-0: GOTO 10B0 



76 



ABACUS Software ADUENTURE SAMEUR I TER ' S HANDBOOK 



3.12.4 ACTION: OPEN 

Right at the beginning of this program part there is thB now 
a known test for avoiding technical errors. Again it is 
necessary to check both the space and the inventory . 

B000 IF 0BCN3OPL AND 0BCN3O-1 THEN PRINT 
"THERE IS NOTHING LIKE THAT HERE.": SOTO 10B0 

The action itself will mostly consist of setting a flag and 
outputting a communication: 

B0S5 IF N-ll AND FLC13 THEN PRINT"O.K. -THE LID 
OPENS BACKWARDS. "FLC 23 — 1:60T0 10B0 

We must not forget actions that are unimportant, but 
possible in the situation. Our Jar may again serve as an 
example. A logically thinking adventurer will first want to 
open it before any closer examination and would undoubtedly 
be suprised if he failed to so simply because it was 
unimportant to the game. 

B010 IF N=5 THEN PRINT"O.K . ": BOTO 10B0 

The end of this block ensures that not only wrong technical 
inputs but also such impossible instructions as "Open honey" 
are recognized. 

8333 PRINT" I DO NOT UNDERSTAND WHAT YOU MEAN. ": BOTO 
10B0 
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3.13 SUMMARY 

I hope that the explanations given in respect to what are 
probably the most Frequent types of action will have made 
the execution of the actual gamB programming clear to you. 
To summarize, it can be said that in principle the 
individual actions are covered by two program lines. 

Thus at the beginning of a block a test is made to see 
whether execution of the action is possible from the 
technical point of view. Finally steps are take to ensure 
that the program is correctly continued even iF there is an 
error . 

Recognition oF the prerequisites For the execution oF a 
command, just as the action itselF, is usually something 
that is very easily programmed and something that in the 
case oF our adventure system has been standardized. The 
Following list is intended to help you realism your First 
adventure: 



CONDITION 



IN THE BASIC PROGRAM 



Object is in the space 

Object is being carried by the player 

Object is not in the space 

Flag is set 

Flag is not set 

Player is in a speciFic space 



OB [object] -PL 
OBCobjectD— 1 
OB C object 3 <> PL 
FLCx3=-l 
FLCx3=0 
PL=space 
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ACTIONS 



IN THE BASIC PROGRAM 



Output communication to the player 

Object disappears 

Object comes into the inventory 



PRINT"" or MSS 
OB C object 3=0 
OB C abject 3— 1 



CONDITION 



IN THE BASIC PROGRAM 



Object reappears in the space 

Flag is set 

Flag is deleted 

Player is transferred to another space 



0BCobject3=PL 
FLCx3 — 1 
FLCx3-0 
PL=space 



EXPLANATION OF THE MORE IMPORTANT VARIABLES: 

NS Number of spaces in an adventure 

AO Number of objects 

AU Number af verbs 

PA Ways out from a space 

I Counter in loops 

N Number of objects used 

OB Location of an object 

DI Counter for directions 

PL Player's location space 

UN Number af verb used 

WL Significant word length 

ENS Player's input 

EOS Subject of player's input 

EUS Uerb of player's input 

MSS Communication to be output 

DBS Description of an object 

RNS Call name of an object 

UES Uerb 
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3.14 THE LAST STEPS 

Before our adventure corresponds to the ideas developed in 
chapter E, uie must think about three further program parts. 

Thus, if a game is to be played satisfactorily, it is 
absolutely essential to provide the player with the 
possibility of making a quick inventory. 

It is quite possible to execute this routine in the same way 
as the handling of the verbs. As what is involved here is a 
fundamental function of the adventures, we shall supplement 
our driver in some suitable manner. 

3.14.1 INUENTORY 

Like the routines to be prepared later for storing and 
loading the state of the game, and inventory belongs to the 
group of uihat are called one-word commands. Ule have left 
sufficient room for this program part between program lines 
1470 Cend of the movement routine] and E000 Canalysis of the 
inputD . 

To avoid keeping our driver occupied for an unnecessarily 
long time comparing each of the player's moves with the 
commands in this special group, we first decide whether what 
is involved is one of these special instructions or a normal 
input . 

ThB usual input made by a player will have a length of at 
least seven letters. Therefore, if the length of the 
input is less, let us assume that it is a one-word command: 
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1490 IF LENCENTRY$3>6 THEN GOTO SOOO 

IF the player's input is not a normal combination oF a verb 
and object, all thB lines in which the handling oF a one- 
uiord command begins mill run through in turn until agreement 
oF the First three letters is established. 

In practice the execution oF the inventory consists in 
running through a simple loop that prints out on the screen 
all the objects in the adventure that are marked -1: 



1139 REM START OF INVENTORY 

1500 IF LEFTSCENTRY$,33<>"INU" THEN 60T0 2000 

1510 PRINT"I AM CARRYING THE FOLLOWING WITH I1E: 

1520 FOR 1-1 TO AO 

15S0 IF 0BCI3 — 1 THEN PRINT OBSCID 

1540 NEXT I 

1550 GOTO 1090 

1560 REM END OF INUENTORY 



3.14.2 THE TITLES 

Seen from the purely technical aspect, uie have completed our 
program with these lines. All required Functions are 
available, and nothing more stands in the way oF a game. 
But how long is the adventurer to wander about in our world? 
When has he reached his goal? 

So Far as the action is concerned, the mini version oF Gold 
Fever ends when both the nuggets and thB silver coins are in 
the player's possession. 
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A single BASIC line is all that is necessary in this case to 
prevent all further inputs and to transfer program control 
ta a part that informs the player in some appropriate way of 
his success and ends the game. 

134:0 IF 0BC1E3 — 1 AND 0BC17D — 1 THEN BOTO 4800 

Typical of adventure games houBver is an entirely different, 
less glorious end. Since players of our program will of 
necessity normally end their game somewhat earlier, we 
program a further end solution From line 4500. 

In the execution of the game-ending actions we had of course 
already prepared a suitable message, so that the player at 
least does not have to be left in any doubt as to the cause 
of his failure. 



4500 PRINT CHRSC147]:REM PLAYER DEAD 

4600 PRINT "THIS IS THE END!":PRINT MSSC03 
4610 PRINT"I AM DEAD !":PRINT 
4650 INPUT "SHALL I TRY AGAIN"; AS 
4630 IF LEFT$CAS,TD-"Y" THEN RUN 
4640 PRINT CHRSC 1473: END 

Here the inclusion of the individual message in msSCOD 
allows us to use this for every situation and every 
adventurB. If at all necessary, alterations will not 
involve much work. For this reason the above lines, Just 
like the news of victory from 4B00, may be regarded as 
Further additions to our adventure driver. 
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Let us also remember that loading adventures and playing 
them through in a Few hours is not all typical of adventures 
and let us finally program a normal program end. 

Even though such software is on the market, it does not say 
much for the user friendliness of a program if the program 
can be left Just by pressing the stop or restore keys. 

Therefore let us insert a further one-word command into our 
system: 

1500 IF LEFTSCENTRYS,3]<> ,, INU" THEN GOTO 1S50 

1950 IF LEFTSCENTRYS,33<>"END" THEN GOTO 2000 

I960 PRINT "THE AUTHOR WISHES YOU BETTER LUCK NEXT 
TIME!": END 

Logically these were the last lines of our adventure; we 

have realized all conceivable versions of the end of the 

game . But how on the other hand does the beginning of our 
work look? 

If we start our program Just as it is, its first action 
consists in preparing the work variables, a Job that raises 
the thought of a program crash, especially in the case of 
major adventures. Then one finds oneself in the middle of 
the program and as inexperienced newcomer to adventure games 
perhaps sees the purpose of the game as arranging a 
sightseeing tour through an electronically simulated world. 

As first impressions are important let us take the trouble 
of providing our program with one or, better still, several 
titles. 
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It will be the Job of the first title to give some 
information, in a concise but attractive form, to indicate 
the title and nature of the program, and to provide some 
information on the author . 

We bring the next picture onto the screen before the 
variables are initialized. During this period of time this 
title can give some information on the task allotted to thB 
player and introduce him into action. 

If of course establishing the task set is part of the idea 
of the game, this screen will be missing and the program 
title will be followed by an explanation of the idea of the 
game, which otherwise must be implemented as a third 
screen. 

How was it when you received your first adventure and got it 
into the memory? Did you know the purpose of these programs 
or did you sit in front of your computer not knowing what to 
do?. 

After all let us not forget that there will always be 
beginners who are happy if the can load a program without 
error messages after they have switched on the computer . 
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SCREEN 



Welcome to the miniversion af GOLD FEUER 



Some days ago, while looking for 
a Fortune in the new world, you met a 
critically ill old man to whom, you gave 
help in his last hours. Out oF 
gratitude he told you about his gold mine 
and the rest oF his wealth hidden there. 
Many dangers Faced you on the way there; 
soon you will have reached your goal and 
it will be seen whether the old man was 
telling the truth or talking in a 
delirium . 



Do you want advice on your Further 
action? 
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SCREEN II 

C64 - Adventure System, Uersion i.O 
CcD 13B4 by Ulalkowiak 

Imagine a robot that you can control with 
a sequence of commands. I am this robot 
and on behalf shall expose myself to the 
dangers of the boldest of adventures. 

To enable you to make me act sensibly, I 
shall accurately describe the situation 
in which I happen to find myself at any 
given time. Then you tell me in two 
words such as, for example, EXAMINE DOOR, 
TAKE KNIFE, what am I to do . 

Moreover I understand the commands 
INUentory SAUE LOAD 
UOCabularies HELP END 
SCOre and INStructions 

C Press key] 

In these two examples we have shown you what was meant. In 
your own adventure games program lines CIO - 1003 and C700 - 
3003 are available for this task. 

You should incorporate the general explanations as a 
subroutine, being concluded by RETURN. This permits further 
extension of the adventure driver and enables the player to 
recall the rules without interrupting the game. 
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3.15 INFORMATION ON THE PROGRAM LISTING 

The next pages contain the complete listing of GOLDFEUER 
mini version 1.0. It should however be noted that it is 
not a question of additional program lines; all lines 
explained in the previous text are also listed. 

You will see that with the techniques so far presented it is 
possible to develop demanding adventures that do not need to 
shun comparison with corresponding purchasable software. 

It is now up to you whether you first put the book aside and 
develop an adventure game of your own or prefer to learn 
about other Features that can make a perfect adventure from 
a good one . 

Some of the program lines are longer than 80 characters so 
it will be necessary to use the abbreviations" for the BASIC 
keywords to enter these lines C?=PRINT, N-shift-E-NEXT, 
etc.]. 

The programs in this book were listed using a TURBOPRINT/BT 
printer interface in the SPECIAL LISTING MODE. By using 
this special mode it should be easier to enter the programs. 
Please refer to Appendix A for a complete list of the 
special codes used to list the programs. 
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1 REM — MINI -GOLD FEUER, VERSION 1.0 — 

2 REM CC3 13B4 BY UIALKOUIAK 

10 REM TITLE PIC 

TURE 

1 1 P0KE53281 ,11: P0KE532B0 , IE : PR I NTCHRS C 1 
423 

12 PRINT"CCLR>" 

13 PRINT"CD15> CCM+ 

>ccn+>ccti+>ccn+){:cn+>ccn+>ccri+>ccn+3ccn+ 
>ccn+jccn+>tcn+>ccn+jccn+Jccn+> 

14 PRINT"CYELJ CSHOJCCriY} CSH0>CSHP> C 
CMG3 CSH0KSHM3 CBL1OCSH03CCI1Y} CSHOJCC 

mo ccmgjccito cshojcchy> cshojcshpjcchs 
jccn+>ccti+3ccri+j<:cn+>ccn+3<:cn+3ccn+>tcri+ 
y 

15 PRINT"CYEL> CCNHJCCUP} CCPWOCCrili:} C 

cmg> ccnHJCcnnj cbliocshljccmpj cshl?<:c 
mp> ccnG>ccnn> cshl^ccmp) cshlj c she :> certs 
> c cmm k dink din > ccn+Jccn+jccn+> 

IB PRINT"CYEL> CSHL>CSH(5J CSHLJCSH03 C 
SHLiKCflP} CSHLJCSHNJ CBLJOCCMG5 CSHLJCC 

np> cshmjcshn> csHL>ccnp> ccroocsHroccns 
y c cnri k din > coin > ccm+jccm+jccm+j 

17 PRINT"CBLJO tSHU>CSH»>tSH»>tSH*>CSH« 
>CSH*>CSH*3CSH*><:SH»JCSH«5CSH»5CSH*>{:SH» 

>csh»><:sh*:xsh«:kshi:> ccn5> ccn+>ccn+>c 
cn+> c cmm ><: din :> coin? cdi+>ccm+:kdi+> 

IB PRINT"CBLK> tSH-> CD1BJCC3 1384 
CBUOCSH-JCD15> CD1+3CD1+}CD1+} c 

cnnjccnN5ccnN> ccn+jcai+><:cM+j 

13 PRINT"CBL10 CSH-} CCMB3BY 

CBLK3CSH-JCCM53 CCn+JCCI1+>CCn+> C 

cmmj cctiN} coin} ccn+>ccn+3<:cn+> 

20 PRINT"CBLIO CSH-3CCMB>J0ERG UALKOUIA 

kcbliocsh-kdisj cdi+><:di+:kdi+:> c 

cnn>csH@>csHN> ccn+^ccn+jccn+5 

21 print"cblk> cshjjcsh»>csh»3tsh*j<:sh* 
>csh«>csh«>csh«><:sh*:ksh»}csh»:ksh*ksh« 

3csh»>csh«>csh»>cshkj cd15> ccm+jccm+>c 
crwo csh > cshn:ksh*:ksh*:kdi+:kdi+:k 

CM+J 

22 PRINT" CCM2J CSHU}CSH*KSH*:KSH* 
3CSH»JCSH*3CSH*>CSH»JCSH«>CSH»JCSH*JCSH« 
3CSH«><:SH*>CSH*>CSH*J{:SHI5fCn53CCn+3 

cshnj ccn+>ccri+>ccn+3 

23 PRINT" CCM23 CSHUD 

CSHI> CCM5>CCM+J CSHN3 CCrHOCCM+X 
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Ct1+> 

24 PRINT" CCM2> CSHU> C 
SHI> CSHNJtCM5>CCM+5 CSHN> CCM+>CC 

25 PRINT" CCf12} CSHU>CSH«OCSH*:KSH*0{:S 
H»JCSH»JCSH*>CSH*JCSH*>CSH*>CSH*JCSH«JCS 
H»JCSH*)CSH*J<:SH*JCSHI5 CSHN} CCMSlKCrHO 

CSHN>CSH*>CSH*J<:SH»JCSH»>CSH»JtSHN3CCn 

26 PRINT" CCM2> CSHOJ CS 
HP3CSHN5 CCn5>tCn+> CSHNJ CSHN> CCM 

+>ccn+>ccn+> 

27 PRINT" CCM2J CSHOJCCrmCCIIYKCMYIKC 
MY5CCMY3CCMY5CCnY>CRUS><:YELJ C0FFJCCn2>C 

CMY>ccnY3<:criY>{:cnY3ccnY3ccnYJccnY3tsHP3 

CCMH>CCM53 CSHNJ CSHNJ 



2B PRINT"CCM25 


CCCttO CRUS>CYEL> 


CSHZ>CDFF>CCI12} 


CCMM5 CCMH> 


23 PRINT"CCM2> 


ccmh> cc 


rwi> cshnj 




30 PRINT"CCH23 


CCI1H} CC 


nti> CSHN> 




31 PRINT"CCM2> 


csHL>ccnp>ccnp>ccMP:>cc 



npjcciipjccnpjccnpjccnpjcciipjccnpjcctipxic 
np>ccriP3<:cnp>ccnp>csHS>csHN> 

32 PRINT-C DNJ CCMBJFROtl THE CUI 
HT5ABACUS CCMB>BOOKC DN>" 

33 PRINT" 'ADUENTURE BAHEWR ITER'S HAN 
DBOOK ' " 

S3 FOR 1-1 TO 10000: NEXT 

100 REM CHAR 

ACTERISTICS 

101 : 
110 NS-6 
120 A0-1B 
130 AU-B 

140 UIL-3 :REI1 WORD LENBTH 

150 PL-1 

ISO Dill SPSCNS],PACNS,B],0BSCA0],RNSCA03 

,0BCA03 

1SS : 

200 REM UERBS 

201 DATA EXAMINE 

202 DATA TAKE 

203 DATA DROP 

204 DATA OPEN 

205 DATA USE 
205 DATA BREAK 
20S : 
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300 REM 

301 DATA 

302 DATA 



•LOTS OF BIB TREES", "TRE",1 
"LOTS OF BIB TREES", "TRE**,2 

303 DATA "SEVERAL PIECES OF ROCK", "ROC", 

2 

"AN OLD UIODDEN HUT", "HUT" ,3 
"A DIRTY JAR", "JAR", O 

306 DATA "HONEY", "HON ",0 

307 DATA "A WOODEN BOX", "BOX", 3 

308 DATA "A SHELF" , "SHE", 

303 DATA "SOME EXPLOSIVES", "EXP" ,0 

310 DATA"A HOLE IN THE SROUND", "HOL",0 

311 DATA "A RUSTY IRON CHEST", "CHE" ,0 

312 DATA "*SILUER COINS*" , "SIL" ,0 
"A CAUE" "CAU" 5 
'A FEROCIOUS LOOKINB BEAR","BEA 



304 DATA 

305 DATA 



313 DATA 

314 DATA 
",0 

315 DATA 

316 DATA 



LOTS OF SMALL BUSHES" , "BUS" ,4 
SEUERAL IRON BARS" , "BAR", 6 

317 DATA "«NUBBETS*","NUB",5 

318 DATA "AN IRON BAR", BAR, 
433 : 

500 REM SPACE DESCRIPTIONS 

501 DATA "IN THE WOODS" , 0, 0, O, B.O, 
50B DATA "IN THE WOODS", 0,0, 1 ,3,0, 

503 DATA "IN THE WOODS BY A ROCKY SLOPE" 
,0,4,2,0,0,0 

504 DATA "IN A CLEARING IN THE WOODS" ,3, 
0,5,0,0,0 

505 DATA "IN A CLEARING BY A MOUNTAIN SL 
OPE", 0,0,6, 4, 0,0 

506 DATA" AT THE ENTRANCE TUNNEL TO AN 
LD MINE",0, 0,0, 5,0,0 

5SS : 

600 REM INFORMATION 

601 MSSC13-"I CANNOT SEE ANYTHINB IN PAR 
TICULAR" 

602 MSSC23-"I AM NOT THAT STRONB" 

603 MS$C33""WHAT DO YOU MEAN" 

604 MS$C43-"THE BEAR TAKES THE HONEY AND 



605 MSSC53-"DISAPPEARS INTO THE DEPTHS 

F THE CAUE" 

6S8 : 

633 REM TITLE PABE 

700 PR I NT " CCLR3 " : P0KE53280 , : P0KE53281 , 

:PRINT"CWHT>";CHR$C143 

710 PRINT"WELCOME TO THE MINI UERSION OF 
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715 PRINTSPCC143"CSHB3<SH03CSHL3CSHD3CSH 

R3CSHU3CSHS3CSHH3 

780 PRINT" 



725 PR I NT "SOME DAYS ABO, WHILE LOOKINB F 

OR A" 

730 PR I NT "FORTUNE IN A NEW WORLD, YOU ME 

T A" 

735 PRINT "CRITICALLY ILL OLD MAN TO WHOM 

YOU BAUE" 
710 PR I NT "HELP IN HIS LAST HOURS. OUT OF 

BRATITUDE" 
745 PR I NT "HE TOLD YOU OF HIS BOLD MINE A 
ND THE" 

750 PRINT"REST OF HIS WEALTH HIDDEN THER 
E. MANY " 

755 PRINT "DANGERS FACED YOU ON THE WAY T 
HERE, SOON" 

760 PR I NT "YOU WILL HAUE REACHED YOUR BOA 
L AND IT" 

765 PR I NT "WILL BE SEEN WHETHER THE OLD M 
AN WAS" 

770 PR I NT "SPEAK INS THE TRUTH OR TALKINB 
IN A " 

775 PRINT"DELIRIUM." 
780 : 
785 : 
730 PR I NT " 



733 : 

BIO FOR I-1T0AU 

B15 READ UERB$CI3:UERB$CI3-LEFT$CUERBSCI 

3,33 

BEO NEXTI 

830 FOR OB-1 TO AO 

B35 READ 0BSC0B3 , RNSC0B3 .0BC0B3 

840 NEXT 

845 FOR SPACE - 1 TO NS 

850 READ SPACESC SPACE 3: 

855 FOR DI-1 TO 6: REM DIRECTIONS 

860 READ PACSP.DI3 

865 NEXT DI 

870 NEXT SPACE 

B75 : 

B80 PR I NT "DO YOU WANT ADUICE ON WHAT TO 

DO NEXT"; 

BBS INPUTENS 

BSO IFEN$-"Y"THENS0SUB900 

B95 E0T01000 
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899 : 

900 REM INSTRUCTIONS 
910 PRINT"CCLR>";CHR$C143 

920 PRINT'*C-B4 ADUENTURE SYSTEM UERSION 

1.0" 

930 PRINT" CCD 1994 BY WALKOWIAK" 

910 PRINT" 



950 PR I NT" IMAGINE A ROBOT THAT YOU CAN C 
ONTRDL" 

951 PRINT"WITH LOTS OF COMMANDS. I AM TH 
IS ROBOT" 

352 PR I NT "AND ON YOUR BEHALF SHALL EXPOS 
E MYSELF" 

353 PR I NT "TO THE DANGERS OF THE BOLDEST 
OF ADUENTURES." 

354 PR I NT "TO ENABLE YOU TO MAKE ME ACT S 
ENSIBLY," 

355 PR I NT "I SHALL ACCURATELY DESCRIBE TH 
E" 

355 PR I NT "SITUATION IN WHICH I HAPPEN TO 

FIND" 
357 PR I NT "MYSELF AT ANY GIUEN TIME. WHEN 

YOU TELL" 
35B PR I NT "ME IN TWO WORDS SUCH AS, TAKE 
BAR" 

359 PR I NT "OR EXAMINE BOX" 
960 : 

951 PR I NT "I UNDERSTAND THE COMMANDS:" 

952 PRINT"INUENTORY AND INSTRUCTIONS" 
375 PR I NT " 



330 PR I NT "C DN5C DNJ"SPCC113"PRESS A KEY 

» 

9B5 GETENS:IFEN$-""THEN3B5 

990 PRINT"CCLR5":PRINTCHR$C 1423: RETURN 

995 : 

999 REM 

1000 PRINT"CCLR}":PRINTCHRSC1423 
1010 BLANKS-" 

W 

1020 DATA NORTH, SOUTH, WEST, EAST, UP, 

DOWN 

1030 FOR DIR-1 TO B 

1040 READ DIRSCDIR3 

1050 NEXT DIR 

1070 PRINT"CCLR>":P0KE532B0,0:P0KE532B1, 

0:PRINT" " 

10B0 PRINT"CBLUJ" 
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1030 P0KE21 1,0: P0KE214 , : SYS5B73S 

1100 FOR LINE-1T010 

1110 PRINTBLANKS 

11S0 NEXT LINE 

1 1 30 P0KE2 14,0: P0KE2 11,0: SYS5873S 

1140 PRINT"I AM "; 

1150 PRINT SPACESSC PLAYER 3 

1160 PRINT" I SEE "; 

1170 FOR 1-1 TO AO 

1180 IF OBCIJOPLAYER THEN 1210 

1130 IF P0SC03+LENC0BSCI3 3+2<-3S THENPRI 

NTQBSCI3;", ";:B0TD1210 

1200 IF POSC03+LENCOB$CI3 3+2> 33 THENPRI 

NT: SOTO 1130 

1210 NEXT I 

1220 PRINTCHRSC 1573 ; CHRSC 1573 ; " . " 

1230 PRINTBLANKS 

1240 PR I NT" I MAY PROCEED "; 

1250 FOR DIR-1 TO B 

12B0 IF PACPL.DI3-OTHEN1310 

1270 IF P0SCO3-14 THEN PRINT DIRSCDIR3;: 

B0T01310 

12B0 IF P0SC03+LENCDISCDIR3 3O7 THEN PRI 

NT", ";DIRSCDIR3; :B0TD1310 

1230 IF P0SCO3+LENCDI$COIR3 3>-37 THEN PR 

INT", ":PRINT DIRSCDIR3 ; : B0T01310 

1300 IF P0SC03<1B AND P0SC03>2 THEN PRIN 

T", ";0IRSCDIR3; :B0T01310 

1310 NEXT DIR 

1320 PRINT* 

1330 PRINT' 



r » *> 



1340 IF OBC123 — 1 AND 0BC17D — 1 THEN EOT 

4B00 

1330 P0KE21 1 , : P0KE214 , 24 : SYS5B732 : PR I NT 

"CUIHT3"; :INPUT"UIHAT SHALL I DO";EN$:PRIN 

T"CBLU3" 

1400 IF LENCEN$3>2 THEN 1500 

1410 IF ENS-"N" AND PASSAGECPLA, 13<>0 TH 

EN PLA-PASSABE CPLA,13:PRINT"0.K.":B0T010 

60 

1420 IF ENS-"S" AND PASSASECPLA.23O0 TH 

EN PLA-PASSABE CPLA, 23 : PRINT"0 . K . " : B0T010 

BO 

1430 IF EN$-"UI" AND PASSABECPLA.33O0 TH 

EN PLA-PASSABE C PLA , 3 3 : PR I NT "0 . K . " : B0T010 

BO 

1440 IF ENS-"E" AND PASSABECPLA,43<>0 TH 

EN PLA-PASSABE C PLA , 4 3 : PR I NT "0 . K . " : BDT010 
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80 

1450 IF EN$-"U" AND PASSABECPLA, 53<>0 TH 

EN PLA-PASSAGECPLA, 53 : PRINT"0 . X . " : G0T010 

BO 

1460 IF EN$-"D" AND PASSABECPLA, B3<>0 TH 

EN PLA-PASSAGE C PLA , 5 3 : PR I NT "D . K . " : G0T010 

80 

1170 IF LENCENTRY$3<3THEN PRINT"Y0U 

CAN'T GO THAT U)AY":G0T01080 

1430 IF LENCENTRY$3>6 THEN GOTO 2000 

14SB : 

1433 REM START OF INVENTORY 

1500 IF LEFTSCENTRY$,33<>"INU"THEN GOTD 

1300 

1510 PRINT" I AM CARRYING THE FOLLOWING 

WITH HE:" 

1520 FOR 1-1 TO AO 

1530 IF 0BCI3— 1THEN PRINT 0BSCI3 

1540 NEXT I 

1550 GOTO 1080 

1550 REtl END OF INVENTORY 

1561 : 

1833 REM INSTRUCTIONS 

1900 IF LEFTSCEN$,33O"INS"THEN1950 

1810 G0SUB900 

1320 G0T01080 

1850 IFLEFT$CENS,33O"END"THEN2000 

1360 PRINT"CCLR3THE AUTHOR WISHES YOU MO 

RE SUCCESS NEXT TIME" : END 

1830 : 

2000 LN-LENCENTRYS3 

2010 FOR EL-1T0LN 

2020 TEST$-niDSCENTRY$,EL,13 

2030 IF TESTSO " "THEN NEXT EL 

2040 EUS=LEFTICENTRY$,33 

2050 RL-LN-EL 

2060 IF RL<0 THEN 2030 

2070 EOS-R I GHTS C ENTRYS , RL 3 

20B0 E0S=LEFTSCE0S,WL3 

2030 FOR UN-1 TO AU 

2100 IF EUS-UERBSCUN3 THEN 2130 

2110 NEXT UN 

2120 PRINT"I DO NOT UNDERSTAND THAT UERB 

! " : GOTO 1080 

2130 FOR N-l TO AO 

2140 IF E0S-RNSCN3 THEN 2200 

2150 NEXT N 

2160 PR I NT "I DO NOT KNOW THIS OBJECT! ":G 

0T010B0 
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2163 : 

2170 REH 

2200 ON UN GOTO 5000,6000,7000,8000,3000 

, 10000 

2201 

443B 

4499 

4500 PRINTCHRSC1473: REM PLAYER DEAD 

4600 PRINT"THIS IS THE END! " : PRINTMSSC03 

4610 PRINT"C DNJC DN> I AM DEAD": PRINT 

4620 INPUT "SHALL I TRY AGAIN"; AS 

4630 IF LEFTSCAS,13-"Y"THEN RUN 

4640 PRINT"CHR$C1473:END 

4641 : 
4739 : 

4B00 PRINT"CCLR>" 

4910 PR I NT "WELL DONE" 

4B20 PRINT 

4930 PRINT"YOU SOLUED THE ADUENTURE" 

4940 PRINT 

4999 END 

4999 : 

4999 REM 

5000 IF 0BCN3OPL AND 0BCN3O-1 THEN 60T 
5300 

5002 IF N-l THEN PRINT MSSC13 : G0T010B0 

5003 IF N-3 THEN PRINT MSSC13 :G0T010B0 

5004 IF N-4 THENPRINT"IN A CORNER THERE 
IS A SHELF. ":OBCB3-PL:G0TO108O 

5005 IFN-5THENPRINT"THE JAR IS FULL OF H 
0NEY.":G0T010B0 

5006 I FN-BTHENPR I NTMSS C 1 3 : B0T010B0 

5007 IFN-7AND0BC93-0THENPRINT"IN THE BOX 
IS SOME EXPL0SIUE.":G0T010B0 

5008 IF N-B AND 0BC53-0 THEN PRINT"0N TH 
E SHELF THERE IS A JAR" :0BC53-PL:G0T010B 


5003 IF N-B AND 0BC53O0 THENPRINTMSSC13 
: B0T01080 

5010 IFN-10THENPRINT"IN THE HOLE IS AN I 
RON CHEST" :0BC 11 3-PL:G0T010B0 

5011 IF N-11ANDN0TFLC13THENPRINT"IT IS S 
ECURED WITH AN IRON CHAIB" : G0T010B0 

5012 IFN-11ANDFLC13ANDNDTFLC23THENPRINT" 
I CAN'T SEE ANYTHING FROM THE OUTSIDE" :G 
0T01080 

5013 IFN-11ANDFLC13ANDFLC23THENPRINT"IT 
IS FULL OF SILUER COINS": OB C 12 3 -PL : GOTO 
10B0 
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5011 IFN-12THENPRINT"THATS JUST WHAT I'll 

LOOKING FOR! ":BOTO 1080 
5015 IFN-13THENPRINT"I'UE WOKE A BEAR UP 
" : OBC 143-PL : B0T010B0 

5017 IFN-15THENPRINT"THERES A HOLE IN GR 
0UND":0BC103-PL:S0T010B0 

5018 IFN=16THENPRINT"THEY LOOK UERY STRO 
NB":B0T010B0 

5015 IFN-17THENPRINT"THIS IS REAL BOLD ! 
"G0T010B0 

5300 REM OBJECT NOT PRESENT 

5301 IF N-l AND PL-2 THEN PRINT"MS$C13 :B 
0T01080 

530S IFN-BANDOBC53— 1THEN PRINT"IT IS SW 
EET AND B00D":B0T010B0 

5303 IFN-6AND0BC53<>-1THENPRINT"I HAUEN' 
T SEEN ANY HONEY": B0T01080 

5304 IFN-3AND0BC73-PL0R0BC73 — 1 THEN PRI 
NT" IT LOOKS UERY EXPLOSIUE! " :S0T010B0 

5305 IFM~3THENPRINT"THE EXPLOSIUE LOOKS 
DANBEROUS ! " : B0T01080 

5310 IF N-1ANDPL-5AND0BC143-5THENPRINT"I 
SEEM TO WHET HIS APPETITE! ": G0T010B0 

5330 PRINT"I DO NOT SEE ANYTHINB LIKE TH 

AT HERE! ":B0T010B0 

BOOO IF 0BCN3OPLAND 0BCN3O-1 THEN BOTO 
8300 

8001 IF N-l THEN PRINT(1S$CS3 : B0T01080 

8002 IFN-3THENPRINTI1S$CE3 : B0T010B0 

8003 I FN-4THENPR I NTMSS C 3 3 : B0T01 080 

8004 IFN-BTHENPRINTMSSC23 : B0T010B0 

8005 IF N-ll THEN PRINTMSSCS3 :BOT01080 
BOOB IFN-10THENPRINTMSSC33 : B0T01080 
8007 IFN°13THENPRINTnS$C33 :S0T010B0 
BOOB IFN"15THENPRINTI1SSC23:GDT010B0 
B010 IF N-5 THEN OBC53— 1 : PRINT"0 .K . ":B0 
T010B0 

8011 IFN-6THENOBC53 — 1 : PRINT"OK" : B0T010B 


8012 IFN-7THENOBC73 — 1 : PRINT"OK" : B0T010B 


8014 IFN-12THENPRINT"0K" : OBC 123 — 1 : G0T01 
OBO 

8015 IF N-1ANDPL-5THEN I1S$C03-"THE BEAR 
HAS KILLED ME . " : B0T04500 

B01B IFN-16THENPRINT"0K" : OBC 1B3 — 1 : B0T01 

080 

B017 IFN-17ANDFLC33THENPRINT"OK":OBC173- 

-1: BOTO 1080 
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BOIB IF N-17ANDNOTPLC33THEN MS$C03-"THE 

BEAR IS ATTACKING ME . " : G0T04500 

6300 IF N-3 THEN MS$C03-"IT EXPLODED UIHE 

N I TOUCHED IT.":B0T04500 

7000 REM 

7005 IF 0BCN3O-1 THEN PRINT"BUT I DDN'T 

HAUE ANYTHING LIKE THAT . " : GDT010B0 
7010 I FN-6ANDPL-5THEN0B C 6 3 -0 : FL C 3 3 — 1:PR 
INTP1SSC43 : PRINTf1S$C53 : OBC143-0: GOTO 
70H0 IFN-5ANDPL-5THEN0BC53=0: FLC33 — 1 : PR 
INTMSSC43:PRINTMS$C53:0BC 143-0 :G0T010B0 
7300 0BCN3-PL: PRINT"0 .K . " : G0T010B0 
BOOO IF 0BCN3OPL AND 0BCN3O-1 THEN PRI 
NT "THERE IS NOTHINB LIKE THAT HERE.": GOT 
010B0 

B005 IFN-4ANDPL-3THENPRINT"THE HUT WAS 
PEN":G0T010B0 

B010 IF N-5THEN PRINT"O.K . ": B0T010B0 
BOEO IFN-11ANDNDTFLC13THENPRINT"THE CHAI 
N STOPS YOU DOING THAT" : G0T010B0 
B0E5 IFN-11ANDFLC13THEN PRINT"O.K. - THE 

LID FOLDS BACKWARDS. ":FLC 23 — 1:G0T010B0 
BSS3 PR I NT "I DO NOT UNDERSTAND WHAT YOU 
MEAN":B0T010B0 
3000 REHUERB-USE 

3010 IFN-16ANDPL-4THENPRINT"THE CHAIN BR 
EAKS.": :FLC13 — 1: G0T010B0 
3333 PR I NT "I DON'T UNDERSTAND WHAT YOU M 
EAN . " : B0T010B0 

10000 IFN-1BANDPL-4THEN0BC 1B3— 1 : PRINT"T 
HE CHAIN BREAKS. ":FLC 13 — 1:G0T010B0 
10010 IFN-1BANDPL-4AND0BC183O-1THENPRIN 
T"WHAT WITH?": GOTO 10B0 

10333 PR I NT "I DON'T UNDERSTAND WHAT YOU 
MEAN.": GOTO 10B0 

READY . 
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4. FROM THE SOOD TO THE PERFECT ADVENTURE 

IF you have played with the miniversion of GDLD FEUER or 
have created an adventure yourself using the techniques 
developed so far, you mill agree with me that popular 
programs of the adventure type have already reached a very 
high standard. 

Even so, from time to time we find adventure games offering 
further extras. To beat the competition, either thB usBr 
friendliness has been increased or use has been made of the 
trivialities of everyday life in the realization of the 
game, trivialities that only make the player's life more 
difficult. 

On top of this there are already a number of programs that 
dram attention to unique Features, this involving 
expenditure on advertising . 

The player is also offered sound, from single beeps and 
cheeps, signaling an understood or non executable command, 
to the imitation of the human voice. Unfortunately the 
value of all this from the paint of view of the game is 
precisely nil. Therefore one should think twice about 
sacrificing one's money on cheap showmanship and consider 
whether it would not be preferable to have your adventure 
worlds expanded by your own programming. 



S3 



ABACUS Software ADVENTURES SAMEWR ITER'S HANDBOOK 



4.1 USER FRIENDLINESS 

This is always being demanded in the case of business 
programs, so why not in the case of game? 

There are adventures that do not even tell the player by 
what routes he can get away From a dangerous place. They 
drive him to despair with the statement "You can't go in 
that direction" Following input oF all points of the 
compass . 

It's a good thing, sometimes, if the player has to tear his 
hair out, but it does seem to me that these programs have 
been written in order to say "We guarantee that you will 
need months to get to know all the places in this 
adventure! " 

Fortunately this criticism cannot apply to our adventure 
system. Nevertheless the absence of any possibility of 
storing the state of the game at any given moment means that 
the player will quickly lose all pleasure in the game. 

Unfortunately this applies especially to adventures to whose 
development we have devoted a great deal of energy and oF 
whose complexity and intelligently set traps we may be 
particularly proud. 

Let us help the player, who in any case must have more than 
seven lives, to get to know all the possible ways oF dying 
in adventures and let us create the technical prerequisites 
to enable him, richer by many experiences, to continue the 
game From this point on. Then, if he does not make timely 
use of this option, he can only blamB himselF. 
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4.2 SAUE GAME/LOAD SAME 

Let us First consider how a certain scene in the game 
differs from the starting position. 

The first thing we notice is the player, who has been moving 
about more or less determinedly. Then we think of the 
objects that he has taken, discarded, destroyed, used, or 
eaten, of objects that no longer exist, and of things that 
have appeared in the game for the first time. 

Apart from these visible and perhaps less important contents 
of variables, less important because they can be checked, we 
must save the changes made to control the course of thB 
game, otherwise it can happen that despite all the necessary 
objects being present an action does not bring the desired 
success . \ 



Let us think about flags that cannot always be used for 
checking the course of a connected question, but can be used 
for checking seemingly unconnected events. 

The same applies to our direction table. As we shall see 
later, extensive changes are quite common here. 

Briefly put, the contents of the variables PL.0BC3, FLCD, 
and PACD must be stored on the disk or cassette as a 
sequential file before a game is ended. 
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4.2.1 External data storage 

In addition to the internal data storage, in which the data 
is Filed in the actual working storage of the CPU and are 
permanently at its disposal, external storage is also 
necessary for dealing with data of any kind. Such storage 
extend the storage of a computer in almost any way required 
and in essence serve to document and prepare large amounts 
of data. Representative of this kind of equipment are 
punched cards and tapes, magnetic tapes, disk and platen 
drives, and our 1541 floppy disk or Cassette data set. 

Apart from different capacities and access times, there are 
also differences in the method of data storage. 

Storage devices such as a tape punch/reader or the data set 
use what are called Files and can best be compared to an 
ancient parchment scroll, while a disk or platen drive 
generally uses relative files. 

Both methods have their advantages and disadvantages, 
particularly in respect to the space required and the time 
needed to file a specific data record. 

Thus each address in a customer file will need a card of its 
own, while on the scroll all addresses will be entered as 
close as possible together to save paper. If however you 
are looking For the address of customer 234, you take the 
234th card, since they are of course all numbered. In the 
case of the scroll it will not be possible to avoid reading 
all addresses or at least counting them through from the 
beginning . 
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RBaders who would now like to deal more with Files should 
review this with the appropriate literature, otherwise it 
may be enough to say that sequential storage is Just the 
right process for our problem, since we want to store the 
contents of our variables one after thB other and later 
reload them, that is to say we do not need special access 
methods . 

4.2.2 SAUE BAI1E 

It will be expedient to transfer the data within loops whose 
structure we base on the initialization part of our 
adventure. For this purpose however it will be necessary to 
extend the characteristics of the program by the number of 
flags used, since this must also be saved. 

It will be necessary to alter program line 1500 in order to 
build the new routines into the interrogation of the special 
commands: 

160 AF-3 

1500 IF LEFTSCENTRYS,33<> "INU" THEN BDT0 1600 

If the player's last input is not the command Inventory, a 
numbBr of Jumps are executsd and an identity with one of the 
brief commands is established: 

1599 REM SAUE GAI1E 

1600 IF LEFTSCENTRYS.4D - "SAUE" THEN GOTO 1700 

1699 REM LOAD GAME 

1700 IF LEFTS CENTRYS, 43 - "LOAD" THEN GOTO 1900 
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Before the operating system of our C-64 can transfer the 
data, it must first be given some information as direction 
of transfer, path of transport, and addresses, a task done 
by the open command . 

16E0 OPEN E.B.e, "@0:GAME, S, U" 

After execution of this line a data file called "GAME" is 
available an the disk in the drive with the device number B. 
This data file can be described as a sequential file CS] CUI 
-UlriteD. The @ character is necessary in order to be able 
to storB an advanced game under the same name. 

Users of the data set input the following line instead: 

1BE0 OPEN 1,1,1, "GAME" 
and change every #B to ttl . 

After this preparation nothing stands in the way of 
transferring our playing data, The output of the data to 
the disk is executed in a similar way to an output onto the 
screen . 

The PRINT# command is used to redirected the output to the 
correct file. 

A concluding close command protects us from subsequent 
errors before tue return to the main program. 
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1630 FDR I - 1 TO AO 

1B31 PRINT#e,0BCI3 

1632 NEXT I 

1635 FOR SPACES - 1 TO NS 

1636 FOR Dl - 1 TO 6 

1637 PRINT#2, PACSP.DID 
163B NEXT DI 

1633 NEXT SP 

1645 FOR I - 1 TO AF 

1646 PRINT*2, FLCI3 

1647 NEXT I 
1650 CLOSE 2 

1670 PRINT CHRS C147D:G0TD 10B0 

To reconstruct a given situation, it is essential to 
transfer this data back to thB corresponding variables, a 
task taken over by an almost identical program part: 

1720 OPEN 2,8,2, "GAME, S,R," 

1725 INPUT#2, PL 

1730 FOR I - 1 TO AO 

1731 INPUTttl, OBCI] 

1732 NEXT 

1735 FOR SP - 1 TO NS 

1736 FOR DI - 1 TO 6 

1737 INPUT#2, PACSP.On 
173B NEXT DI 

1733 NEXT SPACE 

1745 FOR I = 1 TO AF 

1746 INPUT#2, FLCI3 

1747 NEXT I 
1750 CLOSE 2 

1770 PRINT CHRSC1473 : GOTO 10B0 
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When using the data set, use the Following line: 

17B0 OPEN 1,1,0, "GAME" 

Naturally you must again change. all #S's to #l's. 

This would salve the task so far as cassette systems are 
connected, but disk users should avail themselves of the 
possibilities offered by disks and, before continuing the 
game, satisfy themselves that the operation went perfectly. 

Perhaps, when the Save function is called up, the program 
disk, which for safety reasons has a write protect on it, is 
still in the drive or the disk concerned is Full - there are 
mapy things that could result in making all the previous 
work a waste of time. 

Page 36 of the disk operating manual tells how the error 
channel is read. Our job now is to evaluate the information 
thus obtained and, if necessary, pass it on to the player. 

Therefore let us add the following lines to our program: 

1B7S REM DISK ERROR 

1680 OPEN 1,8,15 

16B1 INPUTttl,A,B$,C,D 

16BE IFft <> OTHENPRINT: PRINT "ERROR:";: 

PR I NT A , BSC , D : FORI -1T05000 : NEXT : CLOSES : CL0SE1 : BOTD 

10B0 
1683 CL05E1 
1BBH RETURN : RE(1 END DF ERROR 

and call it at the necessary points: 
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1660 GOSUB 1680 
1760 60SUB 16B0 

To equip our program even more luxuriously, we shall add a 
Feu more lines. It is not at all necessary For us to 
restrict ourselves to only one File For storage. A second 
File will even be essential iF other members oF our current 
Family start liking adventures and want to try their hand at 
the same game . 

ThereFore let us give the players a Free choice and allow 
them to choose among all conceivable names up to the maximum 
length oF sixteen letters. 

Let us also add a Few more print and control commands to 
ensure that the clean display oF the screen image is 
maintained . 

A subroutine completed in this way will then look like the 
listing printed on the Following pages. 
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1599 REM SAUE GAnE 

1600 IF LEFTSCEI$,4DO"5AUE" THEN GOTO 1700 
1G05 PRINT" "SPCC10]; : INPUT" ENTER NAME";ENS 
1610 IF LENCEN$]>16 THEN 1605 

1615 PRINT" SAVING " ; ENS 

1620 OPEN 2,8,2"@0: "+ENS+" , S, W" 

1625 PRINT#2,PL 

1627 PRINT#2, UIE: PRINT#2,Lt1: PRINT#2, LU 

1628 PRINT#2, ZU 

1630 FOR 1=1 TO AO 

1631 PRINT#2,0BCn 

1632 NEXT I 

1633 PRINT"."; 

1635 FOR SP=1 TO NS 

1636 FOR DI = 1 TO 6 

1637 PRINT#2, PACSP.DI3 

1638 NEXT DI 

1639 NEXT SP 
1610 PRINT"."; 

1645 FOR 1=1 TO AF 

1646 PRINT#2,FLCn 

1647 NEXT I 

1648 PRINT"."; 
1650 CLOSE 2 
1660 GOSUB 1680 

1670 PRINT"Cclr3":G0T0 10BO 

1678 : 

1679 REM DI5K ERROR 

1680 0PEN1,B,15 

1681 INPUT#1,A,B$,C,D 

1682 IFA<>OTHENPRINT":PRINT"ERROR: 

" : PRINTBS: F0RI-1T0 5000 : NEXT : CL0SE2 
16B3 CL0SE1 
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16B4 RETURN : REM END 

169B : 

1B39 REM LOAD SAME 

1700 IF LEFTSCENS ,430 "LOAD" THEN GOTO 1800 

1705 PRINT" "SPCC 103 "LOAD GAME": INPUT" WHAT IS 

THE GAME'S NAME"; ENS 

1710 IF LENCENS3M6 THEN 1B05 

1715 PRINT" LOADING »EN$""j 

1720 OPEN 2,B,2,EN$+",S,R" 

1725 INPUTtt2.PL 

1726 PRINT"."; 

1727 INPUT#2, U)E:INPUTtt2,Ll:INPUT#2,LM:INPUT#2,LU) 
172B INPUTtt2, ZU 

1730 FOR 1=1 TO AO 

1731 INPUT#2,0BCI3 

1732 NEXT I 

1733 PRINT"."; 

1735 FOR SP-1 TO NS 

1736 FOR DI-1 TO 6 

1737 INPUTtt2, PACSP.DID 

1738 NEXT DI 

1739 NEXT SP 

1740 PRINT"."; 

1745 FOR I = 1 TO AF 

1746 INPUTtt2,FLCI] 

1747 NEXT I 
174B PRINT"."; 
1750 CLOSE 2 
1760 GDSUB 16B0 

1770 PRINT"CclrJ":GOTO 1080 

1771 REM END OF GAME 
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4.3 THE UOCABULARY 

Frequently the correct choice of words makes an adventure 
game a torment, since, as a player, one is compelled to use 
the same mode of expression as the programmer, which is not 
always easy . 

"Take knife" is not so bad, but the knife will have a Job to 
do. A knife is a welcome object, since outputs such as 
"Throw knife away", "Grind knife", or "Sharpen knife" do not 
call for all that much imagination and likewise can be 
clearly interpreted. 

When the knife has fulfilled its function, one will sooner 
or later want to get rid of it. In same games this can be 
done by deliberately losing it. "Drop knife" is somewhat 
more effective than "Lose knife", but automatically the 
question of where occurs. up. This input, it is true, 
contradicts the usual rules of the game, but nevertheless 
should be tried, at least on our system. 

Let us finally reconsider an example given in the first few 
pages of this book. How do we get into the crown of the 
tree? Perhaps with "Climb tree"? All we get again is the 
message that the ward "climb" has not been understood, so do 
we give up or go on brooding? It will not be possible to 
avoid trying verbs such as "up" or "mount", and if the 
action is really essential, a successful result will sooner 
or later be achieved. 

Naturally problems of this kind are not very nice, and as 
this chapter deals with the question of perfecting our 
adventure system, we shall look for suitable solutions. 
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H.3.1 SYNONYMS 

As a first suggestion, one way of solving the language 
problem would be to incorporate synonymous words in 
sufficient numbers. As the example of the tree shows, 
however, the logical provision of synonymous words can 
greatly increase the size of a program. This means an 
immense amount of additional routine work and severely 
restricts the free memory, which is becoming smaller and 
smaller. 

Nevertheless, again taking Gold Fever as an example, let us 
suggest a solution, one that is almost convincing on 
account of its brevity and simplicity. Needless to say, it 
is not a question of essential program lines. It is up to 
you to decide whether you are prepared to be content with 
the subsequent suggestion aimed at improving the user 
friendliness. 

A person playing Gold Fever will in space 3 have his first 
chance of not Finding the right word immediately when he 
attempts to take a closer look at the wooden hut. So far he 
will have Failed with "Examine wooden hut". He will succeed 
only with "Examine hut". 

If the second idea is to be understood at all, we must First 
expand our vocabulary: 

120 A0=9 

319 DATA "-", "WOODEN HUT",0 
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We can spare ourselves a detailed description. Likewise the 
zero representing the location becomes obligatory. Finally 
no further hut must appear either in the inventory or in a 
space . 

All that is needed is the reference name to enable the 
adventure driver to ascertain the corresponding object 
number, which is done on line 2140. 

Normally the execution of the program is continued in line 
2200 with a jump to the respective command execution. Here 
naturally there is not a single condition that would be 
fulfilled, since nowhere is a value of 19 demanded for N. 
To avoid having to add to these lines, we insert the 
following dodge: 

2140 IF EOS-RNSCN] THEN 2165 

2154 REM SYNONYHS 

2165 IF N=19 THEN N=4 

Nam exactly the same actions are carried out with the wooden 
hut as with the hut. 

Enabling our program to understand a multiplicity of verbs 
involves even less work. 

A word introducing the same action is likewise placed at the 
disposal of the adventure vocabulary, and the Jump table is 
simply supplemented by the Jump target already once used. 

In this way iue extend Bold Fever with the function "LOOK 
AT", making it identical with "EXAMINE": 
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130 AU=7 
S07 DATA LOOK AT 

E200 ON UN GOTO 5000,6000,7000,8000,9000, 
10000 , 5000 

As you see, our system can very easily be extended by 
synonymous verbs, so uie should not give up this bonus. 

Ule do not need to pay much attention to synonyms of the 
objects, since in any case they are not of the same 
importance, the heading lines to the game nearly always 
giving enough clues, except in the case of graphics 
adventures . 

Ule can however make things even easier for the player, so 
that he can really concentrate on solving the problems and 
does not become lost in his search for the right words . 

What if an adventure exposed its entire vocabulary on 
request and produced a list of all existing objects and 
possible verbs? 

A picture such as the one on the next page should eliminate 
all problems of ward selection, and the player does not lose 
time or interest with senseless inputs. 
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VOCABULARY 

I UNDERSTAND THE FOLLOWING UERBS 

EXAMINE 

TAKE 

DROP 

OPEN 

USE 

DESTROY 

LIGHT 

FILL 

ENTER 

EXTIN0UI5H 

FIX 

PRESS A KEY 

Let us imagine a player who is not yet familiar with Gold 
Fever. Without having played very much, he mill, if he can 
think mare or less consistently and logically, immediately 
develop a strategy that will quickly bring him to his goal 
in the solution of the problems. 

He immediately knows the entire vocabulary and knows that 
somewhere there is a Jar, that somewhere there is a chest, 
and will at once develop a strong yearning for silver and 
gold nuggets. Then he will consider what objects can be 
destroyed and his choice will fall on the Jar, the hut, and 
the chain. 

He endeavors to find the treasure chest, and after realizing 
that an iron chain is stopping him from inspecting the 
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contents, he tries to destroy it, but he can hardly do so 
with his bare hands. A Further UOC will then give him the 
idea that the iron bar is presumably the only object 
suitable for this Job. 

But also the tension caused by the dangers is relived as it 
does not escape the player's notice that the world is 
inhabited by not only himself but also by a bear! 

Accordingly another of the programmer's tasks will be to 
decide carefully whether he wants to expose the entire 
vocabulary used in the adventure or only part of it. 

This could be done without any problem by means of a further 
screen outputting a number of the mare important words, but 
it would be counterproductive to our aim, which is the 
development of a universal adventure system, because this 
screen would have to be revised for each program. 

In the case of large adventures with a corresponding 
large vocabulary, the listing of the vocabulary does however 
make perfect sense, so we do not propose dispensing with it 
when developing our adventure system. 

For this reason the adventure driver takes over the handling 
of the UOC command. To ensure o really universal use of 
this program section, the words to be output must be 
ascertained from the playing data of the adventure 
concerned . 

It has already been briefly mentioned that the BASIC command 
RESTORE sets the DATA pointer to the beginning of the data 
block and that the next READ will again read the first 
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element in the list to a variable. 

Fortunately the arrangement of our adventure data fits in 
well with such a procedure, as first the verbs and then the 
objects are named. No execution time must be spent on 
reading the rest of the data . 

Let us build in the appropriate subroutine after the INU, 
SAUE, and LOAD routine: 

1B00 IF LEFTSCENTRYS,33<> "UOC" THEN GOTO 1300 

1805 PRINT CHR$C147D:PRINTCHR$C1583; 

"I UNDERSTAND THE FOLLOWING UERBS" ; CHRSC173 ; 
CHRSC17D 

1806 RESTORE 

Any subsequent READs now acts like the first READ command. 
Therefore let us change the corresponding program lines from 
part 1 with a modification that allows the data being read 
to no longer be stored, but only printed out on the screen: 

1810 FOR 1-1 TO AU 

1820 READ UOS : PRINT U0$ 

1830 NEXT I 

Following this we will give the player enough time to study 
the list of verbs. The same must be done with the printing 
out of the objects, so we insert the corresponding lines as 
a subroutine, this being called with a SOSUB at the points 
concerned: 
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1B40 GOSUB 1890 

1845 PRINTCHRSC 1473: PRINT 

"AND THE FOLLOWING OBJECTS ARE KNOWN TO ME:" 

CHRSC173 
1850 FOR 1-1 TO AO 
I860 READ UOS.UOS.X : PRINT U0$ 
1870 NEXT I 

1BB0 GOSUB 1890: PRINT CHRSC1473: GOTO 1080 
1890 PRINTSPCC243;CHRSC173; "PRESS KEY"; 
1B95 GET ENTRYS: IF ENTRYS-""THEN 1895 

1896 PRINT CHRSC1473 : RETURN 

\ 

It should be noted that in BASIC, DATA lines are read 
sequentially. Therefore line I860 First allocates the 
detailed object description to the string variable UOS. 
Because we do not need this long text at this point, the 
description is then immediately overwritten with the 
reference name . 

To conclude the listing of the entire vocabulary, the 
subroutine is again called from line 1830, so that, after a 
further key has been pressed, the adventure may be 
continued. 

The above lines will now work as planned, at least so long 
as not more than twenty words have to be output . When this 
Figure is exceeded, the time that the first words are on the 
screen will hardly be long enough to be of any help ta the 
player. 

To solve the problem, we introduce the check variable called 
LINE. This is set to zero at the start of the output and 
raised by one for each output . 
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At twenty words we clear the screen and set the counter back 
to one . 

1B49 LINE-0 

1B50 FDR 1-1 TO AO 

1B55 LINE-LINE+1 

1BB0 READ UOS.UOS.X : PRINT UDS 

1BB5 IF LINE-BO THEN GOSUB 1B90 

1BBB IF LINE-BO THEN LINE-1 : PRINT CHRSC1473 

1B70 NEXT I 

Running the program now brings the required result, but the 
contractions appearing CEXA.OPE, or whatever] in no way meet 
the standard oF our programs . 

To achieve a more satisfactory result, we change the verbs 
and objects in the DATA lines provided For them C200 - 5003 
and take the, trouble to write them out, regardless oF the 
relevant word length. 

With this manipulation it now becomes necessary to make a 
further addition to lines BIS and B35 . After all, we do 
not want to waste the memory area provided for the 
variables. 

Why must the wholB word be stored when for the clear 
identification of a move only three or four letters are of 
importance? 

B15 READ UERBSCI3:UERBSCI3=LEFT$CUERBSCn,U)L3 
B35 READ OBI C OBJECT 3 , DBC OBJECT 3: 
RNS C OB 3 -LEFTS C RNS C OB 3 , UJL 3 
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1.4 HELP 

The development Df a Help routine is the final step aimed at 
increasing the user Friendliness of our adventure. 

If the player thinks he can move no farther, he will try to 
obtain some helpful information merely by inputting HELP. 

If it is a simple game, then enough information is given in 
the course of it, we can make the matter easy far ourselves: 

1959 RED HELP 

1960 IF LEFTS CENTRYS,43<> "HELP" THEN GOTO 5000 

1970 PRINT" I CAN REPEAT THE RULES OF THE GAME.": 
PRINT "DO YDU WANT THAT?" 

1971 GET ENS: IF ENS="" THEN 1971 
197E IF ENS="Y" THENGDSUB 900 
1975 GOTO 10B0 

1979 REM END DF HELP 

A standard answer that is even mare frequent is "Yau should 
try everything! - Try examining things!". Usually however, 
at least in adventure games of more recent date, advice, is 
given that sometimes is not of much help, because the player 
cannot understand it. 

Since it is a one-word command, the help required is not 
related to any particular object. In view of the player's 
difficulties this does not make an evaluation of the 
situation exactly easy. 

Finally only the player's location space is available to the 
program as a working basis, so it is not surprising that in 
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problematic spaces many adventures repeatedly output the 
same message to the player, a message he cannot understand 
because he has been thinking about another problem. 

As a typical example let us take a scene From space 4. The 
player has discovered the treasure chest and far some time 
has been struggling in vain with the troublesome iron chain. 
In this situation the following message would be 
conceivable: 

1970 IF PL=4 THEN PR I NT "A LEUER WILL 
INCREASE YOUR STRENGTH .": B0T010B0 

What could a player who in space 4 asks For help do with the 
suggestion, that he should think a lever when he has not yet 
Found the chest and accordingly cannot have discovered the 
chain? 

IF Dne wants to spoil the player and in particularly 
diFFicult situations lead him to the solution step by step, 
this will not be possible, as the above example shows, 
without the Formulation oF extensive tests and condition. 
Once again the Flags and the storage places For all kinds oF 
objects seem predestined to perForm this task. 

Taking the chest as an example again, let us try out this 
kind of careFully measured help, which of course is not 
intended to mean that this scene is to be regarded as 
particularly diFFicult: 
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BOB HS$CB3="HOU) CAN I DESTROY THE CHAIN?" 

1370 IF PL-4 AND OB C 103=0 THEN PR I NT "I NEARLY FELL 
INTO A PIT.":B0T010B0 

1371 IF PL-4 AND OB CI ID -PL AND NOT FLC23 THEN 
PRINTMSSC63 ; : PRINTMSSC73 : BOTO 10B0 

Let us remember that on passing the space concerned only the 
bushes are visible at first and that the hole in the ground 
still has to be discovered. If however the player is warned 
of thB possibility of a near fall into a pit, he will 
probably pay more attention to this obstacle. 

At this point any Further attempt with Help will offer no 
particular advantage. Only after the chest becomes one af 
the things in the space as a visible object is it suggested 
to the player that inspection of the contents calls for the 
chain to be destroyed and the lid to be opened. 

It is hoped that the player will then be able to carry out 
these actions by himself. If he cannot, it might be worth 
his considering whether it would not be better for him to 
read a novel or play arcade action games. 

As when programming the other actions, a safety statement 
will again form the conclusion to the help command. this 
statement is always executed when no specially defined 
situation has arisen: 

1371: 

1S7B: 

1375 PRINT"FIRST LOOK, THEN THINK, AND FINALLY ACT 

! " : BOTO 10B0 
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•i.5 THE PLAYER'S JIOTIUATION 

Our next suggestion For better adventures will extend our 
adventure driver by a final one-uiord command. 

For their solution adventure programs do take a certain 
amount oF time, but iF one plays them For days on end and 
sees no progress at all, one asks oneselF one day whether 
one should not load another game. 

For this reason I consider adventure games that use a point 
system that shows the player how Far he still is From his 
Final goal considerably more appealing. 

It is however necessary to consider on what basis the 
scoring is to be carried out. For evBry treasure Found or 
For every task solved in an adventure the usual version 
provides For a certain number oF points. In addition to 
being told "OF 100 possible points you have 40" the player 
is also given the percentage, as a result oF which the score 
is more easily and more accurately evaluated. Scott Adam's 
"Adventureland" can again be taken as an example. Thirteen 
treasures give a bad number oF points, but with more than 50 
percent the player knows that he has covered halF the 
journey . 

An alternative solution will reward each step Forward and 
not deter one by deducting a certain number aF points Far 
any help given. Likewise any mistake resulting in death 
will not make any signiFicant difference, so that in an 
extreme case even a negative value can not be scored. It is 
this method that encourages one to make repeated attempts to 
find a solution, since after all it should be possible to 
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score more points than the friend who likewise has reached 
the goal . 

If an adventure is to be equipped in such a manner, the 
programmer's job starts with the selection of suitable 
sequences. After all the mere finding of an object is not 
meant to be worth any points at this stage . ThB playBr may 
however expect a reward if he has tricked some dangerous 
monsters or found some secret passages . 

Before we now go into the practical execution of various 
versions in detail, we first give the driver an 
understanding of the command "SCORE": 

1500 IF LEFT$CENTRYS,3K>"INU" THEN GOTO 1560 

1559 REM SCORE 

15B0 IF LEFTSCENTRYS,33O"SC0" THEN 60T0 1600 

To- store the score obtained, we then enter the variable 
SCORE. Here it is important to see that this is set to zero 
with every fresh start and accordingly also in the event of 
death of the main figure. 

Naturally the score obtained says nothing unless it is 
related to the maximum number of points possible. Hence: 

170 U)M=20 :REM MAXIMUM POINTS OF THE MINIUERSI0N 

171 UJE-0 :REM POINTS 

1561 PRINT"0F" j UIE; "POINTS YOU HAUE";UIM; "POINTS. " 
1565 60T0 10B0 

The player scores the points when he picks up the gold and 
silver coins. Therefore let us supplement the lines 
concerned in our action part: 
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6014 IF N-1E THEN PRINT"O.K . " : 0BC1ED=-1 

:U)E-UE+10:B0T0 1080 
B017 IF N-17 AND FLC33 THEN PRINT "0 .K . " :OBC173— 

1:UIE=UE+10:SDT0 10B0 

Unfortunately a player who is only trying to score points 
can achieve sums as high as he likes with the present 
execution of the program. 

Let us remember that on arranging the "Take" action we had 
agreed that "Take" actually meant to "Take in the hand". In 
addition to picking up objects far keeping in the inventory, 
this made it possible in practice to take from the inventory 
in order to carry out an action, for instance the opening of 
a door by means of a key . 

This interpretation proves to be obstructive, since there is 

nothing to stop the player from inputting "Take silver 

coins" several times and adding ten points to his scorB with 
this input. 

As a way out, either the general preliminary condition Cline 
6000] can be altered or additional conditions can be 
introduced into action itself. 

Ule already know this principle from the execution of the 
"Examine" action. Here a similar arrangement had to be made 
to prevent an object from repeatedly becoming visible at its 
place of origin. 
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6014 IF N-1S AND 0BCN3-H THEN PRINT"0 .K . ": 0BC1S3 — 

1:UIE-UIE+10:G0T0 10B0 
6017 IF N-17 AND OBCN3-5 AND FLC33 THEN 

PRINT**0 . K . " : OBC 173 — 1 : UE-UIE+10: GOTO 1080 
6020 IF N-1B AND 0BCN3— 1 THEN PRINT" I ALREADY HAUE 

THE SILUER !": GOTO 1080 
6051 IF N-17 AND 0BCN3 — 1 THEN PRINT" I AM ALREADY 

IN THE POSESSION OF THE GOLD!": GOTO 10B0 

On the other hand if you decide always to interpret the 
"Take" action as an action that makes the player rich, you 
can restrict yourself to tightening the preliminary 
condition and outputting a corresponding reference: 

6000 IF NO PL THEN GOTO 6900 

699B PR I NT "I ALREADY HAUE THAT !":G0T0 1080 

In the case of our own adventures, or at least the 
adventures in this book we propose merely scoring the 
treasures that have came into the player's possession. Even 
so we shall not be able to do without assessing the player's 
individual moves. 

On the contrary we shall even go a step further and assess 
each individual player, informing him of the average score 
obtained. 

As a basis for this evaluation the number of moves is 
available. An experienced adventurer will not linger 
examining every small thing, Just as he knows how to take 
advantage of typical references. 
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We work out an average value from this sum and the score 
achieved and assess the player on the basis of this 
quotient . 

180 F10UE=0 

1080 PRINT CHRSC1543 : M0UE=M0UE+1 

15B1 PR I NT "OF ";Wt1; "POINTS YOU HAUE IN" ; HOUE; "MOUES" 

1562 PRINT SCORE; "POINTS ! THIS EQUALS AN" 

1SB3 PRINT"AUERAGE OF" ; UALUE/MOUE ; "POINTS. " 

1564 SOTO 10B0 



We also redefine the criterion for a successful end to the 
game. Instead of a precisely defined condition dependent on 
the game we now compare the score reached with the maximum 
value passible. If the difference is nil, the player has 
solved the problem. 

It is expedient to carry out this test right at the start of 
each move, before any data is passed to the player. 

1085 IF UIH=UIE THEN GOTO 4800 

Should you use the score as a criterion, please do not 

forget to remove from the program all other lines dealing 

with the same task Cline numbers within the range 1331 to 
1389 D. 

With the logical introduction of a points system we are now 
finally faced with the Job of adapting the victory message 
to this structure. 
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For that purpose it will of course not be possible to avoid 
playing through a complete run when the adventure has been 
completed and contains no more errors. In this game you 
dispense with all inputs that are not absolutely essential 
and establish the minimum number of moves required for 
victory. Calculate the ratio between points and necessary 
inputs and take this value or a somewhat lower figure as a 
basis and a characteristic of a very good game. 

Choose correspondingly graded remarks for worse assessments. 

Thus a game based on the miniversion of Gold Fever can be 
marked more or less as follows: 

1800 PRINT CHRSC1473 

4805 EU-UE/2U 

1810 PR I NT "CONGRATULATIONS" 

4810 PRINT"Y0U HAUE REACHED THE END OF THE SAME" 

4820 PRINT 

4825 PRINT"IN";ZUG;"rtOUES YOU HAUE SCORED" 

4830 PRINT EU; "POINTS" 

4835 PR I NT "WHICH IS A" 

4840 IF EUX0.5 THEN MS$-"P00R" 

4B45 IF EU)>0.5 THEN MS$="FAIR" 

4850 IF EU)>1.0 THEN MS$-"G00D" 

4855 IF EU)>1.5 THEN MS$="UERY GOOD" 

4BG0 PRINT MSS; "RESULT" 

4839 END 

A title arranged in such a way, suitably made up by the use 
of control, color, and graphic characters, will induce many 
adventurers who have Finally mastered thB adventure to play 
it again. 
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These remarks should actually conclude the subject of 
"ScorB". Ule have to make a technical addition without which 
all that lovely planning would be wrecked and whose absence 
would definitely disappoint the players of our programs. 

Perhaps you have already thought of our Save game routine, 
which naturally must be able to store and load the score and 
movements introduced above if the player is not repeatedly 
to start with zero points. 

1757 PRINT#e, UIE 

1758 PRINT#E, C10UE 
1BB7 INPUT#S, WE 
1BBB INPUTttS, riDUE 

All suggestions made in this chapter had the sole purpose of 
increasing the comfort of the programs. 

I think you will agrBB with me if I say that adventures 
developed in accordance with the concept of this book and 
contain all the necessary extras may by all means be counted 
as belonging to the top class of text adventures. Therefore 
let us conclude the technical development with these lines 
and turn to the question of how we can make the games 
themselves more attractive and even more difficult. 

Here we shall do as usual, following dry theory with program 
lines intended for our first work, Gold FBver . 

The following pages will show you in particular how you can 
place further obstacles in the player's way, so that he does 
in fact have to make use of the commands Save and Load in 
order to get to his goal . 
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In order to have enough room For monsters, trap doors, and 
what have you, we shall now deal with the geography again 
and develop our miniworld so that it provided a basis Far a 
complete adventure. 

Should you however intend to enjoy an adventure game 
yourselF, you should, beFore dealing with the next sections, 
input all program lines still missing or, better still, have 
them input by someone else. 

A listing with all suggestions made will be Found in the 
last chapter . 
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4.6 FINDING ONE'S BEARINGS OR LOSING ONE'S BEARINGS 

As already mentioned at the beginning of the book, most 
adventure games are played uiithin a world of about forty 
spaces. Nevertheless one gets the impression of a much 
larger world, with the vast woods, o swamp, an underground 
cave, a maze, and so on. 

In actual fact however the extensive-looking areas are small 
groups of spaces so skillfully interconnected that the 
player usually does not even notice on what journey he has 
been sent . 

The range of possibilities extends from the plain space that 
repeatedly leads into itself to a chain of spaces at the end 
of which the player is returned to start. 

Let us at this point make use of the similar spaces 1 and 2 
in Gold Fever to have a wide area at our disposal right at 
the beginning of the game. 

Let space 1 lead back into itself again in a northerly and 
westerly direction, do likewise with space 2, and then try 
to imaginB the player who starts in space 1 and wanders 
westwards. How is he supposed to know that after each input 
he is still in the space 1 part of the woods? 

Unless he is lucky enough to start the game with the input 
"E", he will need a series of inputs to find his way out of 
the woods, which will spoil his chances af a goad average on 
points. 
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501 ... 1,1,1,2,0,0 

50S . . . 2,2,3,1,0,0 
The search or the right wag will be even more difficult if 
the southern exit From space 2 does not cause the player to 
go into space 2 again, but causes him to enter space 1. 

501 ... 1,1,1,2,0,0 

502 . . . 2,1,1,3,0,0 

Start the program and see the effect of this small change. 

Ulith three spaces it is possible in this way to produce 

small mazes if the connections are made at random, without 

reference to a compass, and there is only one entrance and 
one exit. 

The usual connecting technique used by us also keeps to the 
real paths predetermined by cardinal points. This creates a 
world that permits problem-free identification of the spaces 
and enable the player to find his bearings, especially if he 
makes a map. 

Small Jumps over one or two spaces however quickly render 
this concept unusable. 

Let us imagine three spaces lying one behind the other and 
all giving the description "I am in a big cave." 

A player who gets into cave 1 from the west will, as he sees 
nothing in particular, first want to gBt to know the 
immediate surroundings quickly and presumably will not 
change the direction he has taken, since he needs to find 
his way back in the easiest possible manner. 
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After Grossing through spaces 2 and 3, he again moves into 
the first space, but he cannot possibly know this without 
appropriate action. 

By using a Jump technique it is possible, without a great 
deal of work, to produce what appears to be vast mazes. Six 
spaces are all that is needed to make it almost impossible 
for the player to find the right way . 

Even the programmer will encounter enough difficulties 
during the test phase! 

For even making a map becomes a problem with this method. 
This is not so with the alternative method briefly described 
below. 

In this case a maze drawn to scale, preferably on squared 
paper, such as you often find in the puzzle corners of 
magazines. In the subsequent programming each small box 
corresponds to a space, so it is possible to see the 
considerable amount of work involved . 

It is likewise easy to see that during his excursion the 
player takes a new box with each new space, marks the walls, 
and leaves the passages blank. 

Instead take six spaces, in each case using one as an exit 
space, one as a collecting space, and one as an entry space. 
In the case of the entry space it is important that it alone 
leads back to the place last visited and then only in one 
direction. The same applies to the last space, only one 
passage allows new territory to be entered, all the other 
paths lead into the maze . 
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The collecting space performs a central function. From each 
space in the maze two or more paths lead into the collecting 
space, but all exits bring the player back into the first or 
even the second space in the maze. 

To complicate matters further, the exit from the space lying 
in front of and connected to the last space is arranged in 
such a may that only one path leads into the last space, 
while all others lead into the collecting space or the 
first space. 

Needless to say, an identical description is provided For 
all spaces and as far as possible all six directions are 
used. The player will now have to be almost as lucky as a 
lottery winner to leave the maze before finding the only 
correct path of six in the last space. Here any mistake 
will throw the player back into another space, this in turn 
offering six possibilities. 

Try to find your way in the following maze. 

The Gold Fever maze: 

110 AR=14 

507 DATA "I AM AT THE ENTRANCE TO A MINE", 

8,0,1,5,0,0 

519 DATA A WINDING TUNNEL, 8, 0, 0, 5, 0, 

554 DATA A WINDING TUNNEL, 1 , 0, 7, 8, 8, B, 8 

555 DATA A WINDING TUNNEL, 11 , B, B, 13, 11 , 8 

526 DATA A WINDING TUNNEL, 11 , B, 10, 11 , 11 , 8 

527 DATA A WINDING TUNNEL, 9, B, 10, 11 , 10, B 
52B DATA A WINDING TUNNEL, B, 10, 10, 11 , 0, 
529 DATA A WINDING TUNNEL, 0, 11 , 12, 11 , 0, 
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4.B.1 CHANSES OF PLACE 

Apart from mazes, whatever their size, other means are 
available to us for making it more difficult for the player 
to find his bearings. 

Sudden transfers of the central figure to another space are 
very popular. This is made clear to the adventurer by 
messages such as "Everything around me is turning." 

But even this messagB must be taken at best as a frisndly 
gesture on the part of the programmer and not understood as 
a duty . 

Such actions are usually triggered off by magic objects 
requiring hard rubbing like Aladdin's magic lamp. 

Magic spells and potions prove to be useful, so the player 
of an adventure program can only be advised to exercise the 
greatest possible care should the word "magic" be uttered in 
any connection. 

From the programming aspect these changes of place do not 
cause any kind of difficulty when our adventure system is 
being usBd, as all that is necessary is to allocate the 
number of the space to the variable PL 

"Rub lamp" could therefore be implemented as follows Clamp - 
object 33: 

IF N-3 AND OBC33-1 THEN PRINT 

"THE WORLD IS TURNING ... ":PL-3: SOTO 1080 
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IF in addition the description of space 9 is the same as 
that of the old space, the player probably would inevitably 
be confused after the next move. This applies particularly 
to cases in which the messages is omitted or a different 
text is chosen: 

IF N-3 AND OBC33 — 1 THEN PRINT 

"O.K. - NOTHING HAS HAPPENED .": PL-9: GOTO 1080 

When the player's change of location is not even dependent 
on the manipulations of any particular objects, but is 
governed purBly and simply by chance, this means a further 
increase in the degreB of difficulty. 

With the construction of our adventure program we can 
stipulate that a certain space must be crossed. If the 
contents of PL correspond to the number of this space, a 
chance decision is made as to whether the player is to be 
transferred or whether for the purpose of execution of other 
actions he is to be allowed to stay. 

What player who after sucessfully crossing a maze and then 
entering an apparently harmless space is more than once 
thrown back into the maze will take the risk of a repetition 
of this? 

Another extract from the Gold Fever adventure shows how this 
handicap can be built in: 

110 NS-1G 

519 DATA IN A WINDING PASSAGE. ,8,0,15,5,0,0 

521 DATA IN A TUNNEL. ,0,15,0,0,0,0 

1340 IF PL-IS THEN IF RNDC13> .7 THEN SP-1S 
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The player is transferred to the critical space by leaving 
the entrance to the mazB, at present space eight, a winding 
passage, in a westerly direction. 

He can withdraw from this space immediately or try to find 
out what the wider surroundings hold in store for him. 

If chance will have it Cand whether he wants to we establish 
with the comparative value in the RND function], he gets 
into the next space C1B3. If not, he finds himself again in 
a space in the maze Ccollecting space 113, but this space 
offers no clues that will help him to find his bearings. 

Unless fortune smiles on him, he will decide after a few 
attempts that it is another entrance to the maze. He will 
then avoid this space and so never find some Df thB 
treasure . 
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•i.6.2 HIDDEN ENTRANCES 

These can cause the player at least as much difficulty. 
Even if in the line "I can go ..." only the directions east 
and west are mentioned, the world does not have to end in 
the north: 

I SEE A DARK ROCK CAUE, 
A FEROCIOUS-LOOKING BEAR, 
*»NUGGETS»* . 
I CAN GO WEST, EAST. 



O.K. 

WHAT AH I TO DO? E 

O.K. 

WHAT AM I TO DO? S 

O.K. 

WHAT AM I TO DO? W 

O.K. 

WHAT AM I TO DO? EXAMINE CAUE 

I HAUE STARTLED A BEAR. 

WHAT AM I TO DO? N 



Many players, if they are beginners, or indeed most will 
rely an the details given and never enter the cave, since 
any suspicion of a large-scale cave world is immediately 
dispelled by the fact that it is possible to explore the 
cave and carry out other actions. 

Only an input such as "Enter cave" will lead to fresh 
discoveries: 
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130 AU=7 

209 DATA ENTER 

aeoo on un goto 5000 ,booo, 7000, booo, 9000, 10000,13000 

13010 IF N-13 AND PL=5 THEN PL-IE: 
PRINT "O.K.": GOTO 10B0 

NOTE: Before you satisfy yourself as to the function of 
those lines, it is essential to input all further spaces and 
also to alter the connections of those already existing 
C lines 500 -700 D . 

Line 110 must be adapted to the new situation. 

The nice thing about this is that the entrance is not even 
camouflaged . 

It is now no longer the player's task merely to track down a 
hidden space and enter this by means of correctly chosen 
words, but he must be able to develop a plan of how a usable 
path leading to the space can be constructed. 

Taking the simplest case, a door will be involved, a door 
that is initially locked. An indication by the driver is 
ensured by the descriptions of the objects and by the data 
in the line of the direction table applicable to this space: 

xxxx DATA A DOOR, DOOR, 1 

xxxx REM SPACE 1 

xxxx DATA IN A CELL . ,0,0, 0, 0, 0, 

With this the usual procedure is that the player on 
examining the cell discovers the door, which carries a 
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massive lock. "Open door" and "Open lock" point to the 
missing key, so the player Feels compelled to check all 
other objects in thB space to see whether they can be used 
For opening the lock. 

In most adventures the mere presence of the key in the 

inventory is enough, while others demand some appropriate 

use oF the key, a Feature that we can now explain in light 
oF our practical experience. 

While same are content with a simple text, the other, more 
elaborate programs use Flags as well C0BHN3 — 1. 

However, once the door is open, an appropriate indication of 
direction appears within the heading line and From this we 
manipulate the array item PASSAGE Cr,ri3 relevant to this 
space . 

xxxx IF N-y AND 0BCz3 — l AND PL-=x 

THEN PRINT .K . " : PACr, ril-nr : GOTO 10B0 

y " object number door 

z = object number key 

r «■ present space 

ri= cardinal paint concerned 

nr= new space to be reached 

The above line, inserted into the program deals with the 
verb "OPEN", this makes sure that the player is in 
possession oF the right key Cz3 and is standing in Front oF 
the right door Crl . Then the details in the direction table 
are altered accordingly. 
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4.7 LIMITATIONS AND COUNTERS 

I regard these as especially suitable for giving prominence 
to a particular adventure in relation to all the rest, since 
after all they givB every adventure problem the fascination 
of reality and make some selections of the adventure real 
brain teasers . 

Their function is seen not so much in the active 
participation of the game but as a background check for the 
general conditions on which the game is based. 

At this point it is probably necessary to mention the 
restriction imposed on the inventory, since a weight limit 
is now one of the things that create reality in adventure 
games . 

Assuming that we are not dealing with a superhuman 
adventure, it would in the first place be unbelievable that 
one person could drag about an unlimited number of objects. 
In the second place the game can become too easy if all the 
objects used in the action are available immediately. 

Technically, a counter monitors the number of pieces that 
the player is carrying with him and if he is already 
carrying the maximum load provided for by the programmer, he 
will refuse to pick up any more objects. 

Therefore, before any action is begun, the maximum number 
of pieces allowed must be established: 

185 IMflX-5 
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Otherwise uie leave the inventory routine as it is, since it 
is thB action of TAKEing which uie must pay closer attention. 
All actions involving the verb "Take" will now be based on a 
Further common condition, so For the second time an 
alteration to line 6000 is called For. 

Regrettably this planning not only provides For a 
restructuring oF the block concerned, but also destroys our 
dream oF a universally usable driver with all Functions ond 
restrictions. 

For this reason we alter the jump table in line 2E00 and 
implement the necessary text beFore starting the actual 
execution oF the commands: 

2200 ON UN GOTO 5000, 2210, 7000, B000, 9000, 10000 

2201 REM TEST FOR ROOM IN THE INU 
2210 NUMBER=0 

2220 FOR 1=1 TO AO 

2230 IF 0BCI3 — 1 THEN NUMBER-NUMBER+1 

2240 IF NUMBER- I MAX THEN PRINT "NO, THANKS. - 

I AM ALREADY CARRYING ENOUGH !":G0T0 1080 
2250 NEXT I 

22G0 GOTO 6000 : REM EXECUTION TAKE — 
2270 REM END OF INU TEST 

While this counter plays a passive role and the routine is 
called up only within the limits oF a precisely deFined 
action, other background checks not only restrict the 
player's Freedom oF action, but may even lead to the end oF 
the game . 
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4.B AUAILABLE LIGHT 

This is an expression commonly used in some adventure 
programs to describe a feature that causes additional 
difficulties that can drive the players to despair. 

For players who have a passion for adventure games the usual 
obstacles do not seem to be enough, and since it is a well 
known fact that there is nothing more difficult than life in 
the everyday world, the only thing that can be done to 
overcome this unbearable condition is to imitate this world 
more perfectly . 

Without light we are in the dark and shall hardly be able to 
see anything, yet act properly. If we add to this the fact 
that we are not in our bedroom, where this condition would 
be far less of an obstacle, but in a wild and fissured rocky 
landscape, any further step becomes a deadly risk. 

Naturally this is Just what we adventure producers want, and 
when we build the next lines into our adventures, we shall 
get additional pleasure from imagining the reactions of our 
friends, to whom of course we want to present our work. 

Fortunately every adventure program can have this obstacle 
built in. Often big caves or underground systems of 
passageways are available, while other programs take place 
in a house; these are all places that need artificial 
lighting. Should it in Fact ever happen that the entire 
action takes place in the open air, the movement of the 
earth in relation to the sun must be followed. 
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In order to be able to realize a sunrise and sunset, all 
that it is necessary to do is to use another counter. 

First we determine how long the day or night is to last, 
using the player's inputs as a unit Df time. 

Let us assume that the night begins 50 moves after sunrise. 
This value will be just as typical of any adventure as the 
number of attainable points, so the corresponding variable 
LI1 Camount of lightl is initialized at the start of the 
program: 

IBB Ln=50 .- LISHT=-1 

Your extensive knowledge of the subject of adventure will 
allow you to interpret the variable LIBHT as a signal 
switch, in the sense that a -1 means as adequate amount of 
light for all actions, but absolute darkness. 

The two possible positions of this switch show the output 
routine of our driver whether the player can see anything or 
whether he has to tap his way forward in the dark: 

1131 REM N0 LIGHT 

1135 IF LIBHT THEN 1140 

1133 PRINT"I DO NOT KNOW EXACTLY WHERE I AM." 

1134 PRINT"IT IS TOO DARK TO SEE ANYTHING." 

1135 PRINT: PRINT: "I CAN NO LONBER SEE THE EXITS 
EITHER. ": SOTO 1330 

After line 1132 the output routines used so far will bB used 
if there is any light. 
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If there is no light, lines 1133 to 1135 state in the usual 
may that there is nothing to be seen . 

We have only to see that the LIGHT switch is in its correct 
position; this has to be done after completion of the number 
of moves fixed with LM. 

The move counter cannot be used for this comparison 
operation, because a day-to-night change necessitates 
resetting the counter to zero; let us therefore introduce 
the variable LIGHT CHANGE CLWD: 

186 Lfl-50 : LIGHT— 1 : LW=0 
10B0 MOUE-tlOUE+1 : LU=LW+1 
10B4 IF LID-Ltl THEN GOSUB 3000 
5999 REtl SUBROUTINE LIGHT SWITCH 
3000 IF LIGHT— 1 THEN LIGHT=0 
3010 IF LIGHT-0 THEN LIGHT— 1 
3050 LUI-0 
3030 RETURN 

At the beginning of any new round of inputs a check is made 
to see whether the duration CLt13 specified for any 
particular period has been reached. If so, the SWITCH 
subroutine is called up and the condition of LIGHT changed. 
No more than that is required to expose the adventurer to a 
day-and-night change, ufhich may necessitate searching for a 
lamp. 

In the case of Gold Fever however let us not bB content with 
simulating the movement of the earth in relation to the sun, 
but make the event dependent on the possession of a lamp. 
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Bbcqusb of this we set the player the additional task of 
always keeping enough fuel available for the source af 
light. In our case the fuel will be oil, which the player 
can find in the bear's cave. In the cave he pours the oil 
into the bottle, which he must already have taken, and then 
into the lamp. 

Each filling operation resets the LIGHT CHANGE counter to to 
maximum value. 

To make the matter more complicated, the lamp will still 
contain some oil when the player finds it. If then he goes 
into the depths of thB mine without tapping up the lamp, he 
will be lost without any chance of rescue. One more step, 
and the adventurer stumbles and breaks his neck . 

Since we have not allowed for any darkness in the rest of 
the territory, the first step needed to realize this version 
is to alter the starting values. 

A switch is made only when the LIGHT CHANGE counter equals 
the contents of the amount of light. 

However, in order to allow the player an almost unlimited 
number of moves, we fix LM at zero and LUI at one, thus 
making certain that LUI can never equal LM: 

1B6 Lt1=0 : LIGHT — 1 : LUI=1 : Ll=20 

LI is added because the existing filling is supposed to be 
less than the subsequent toppings up. The remaining lines 
can be taken from the previous example. 
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This routine is activated only when the lamp is First lit. 
In addition to the output of "O.K." the execution of this 
command mill correctly initialize the counters as well 

11030 IF N-23 AND QBZB31 — 1 THEN PRINT 
"O.K. - THE LAI1P IS ALIBHT." 
:Ln=Ll:LUJ=l:60T0 1080 

The player now has enough light available for the next 
twenty actions. By topping up the lamp, he can increase this 
figure to fifty: 

12010 IF N-23 AND OBC233 — 1 AND PLCB3 

THEN L1-S0:LI1-S0:LU-1:PRINT 
"O.K.": SOTO 10B0 

To make it possible to top up the supply of fuel with the 
lamp both on and off, we allocate the number of moves that 
can now be made to the variables LI and LM . 

In case the player comes to the surface or puts out the lamp 
for other reasons we must save the present "tank contents": 

210 DATA EXTINGUISH 

14000 IF N-23 AND QBC23D — 1 THEN L1-LI1-LW 
: PRINT "O.K.": GOTO 10B0 

Likewise these values must be saved when a game is stored: 

1B25 PRINT #2,PL:PRINT #2,L1:PRINT #2,LM: 

PRINT #2,LU 
1725 INPUT #2, PL: INPUT #2, LI: INPUT #2, LM: 

INPUT #2,LU 
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In this may me have made sure that the matter af the light 
really has to follow the course set out for it. 

However, in order to save the player the sudden, unpleasant 
surprise of an inevitable end, it is only fair to give him a 
warning, since if he should find himself in the depths af 
the earth while the oil is running out, he will no longer be 
able to save his skin. 

The following line will inform him of thB impending danger 
shortly before the fuel in the lamp runs out: 



1350 IF LM-LU>-15 THEN PRINT "THE LIGHT FROM THE 
"LAMP IS GETTING WEAKER." 



By using another counter, you can make reactions dependent 
on the time elapsed. 
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4.9 INCIDENTS 

Earthquakes causing an avalanche of rocks, monsters that 
suddenly appear, the natural enemies of the central Figure 
in the adventure, or even trap doors that open at the wrong 
moment are other, universally popular things calculated to 
get thB playBr off the right track. 

Nearly always such events are governed by chance and in two 
respects . 

A monster can liven up a certain space and tear off the 
player's head: 

1360 IF PL-10 THEN NSSC03-"THIS TIME I HAD NO - 
HONEY FOR THE BEAR." : GOTO 4500 

In Just the same way the trap door may only sometimes open 
and at other times not harm a hair of the player's head: 

1370 IF PL=E0 AND RNDC1D>.B THEN MS$C0D= 

"THE GROUND CAUED IN UNDER ME . " : GOTO 4500 

The third version is a combination of the elements already 
presented. It may also be assumed that the adventurer's 
enemies move around, so a certain section of the adventure 
world should be placed at the monster's disposal as a 
playground: 

13B0 IF CPL-13 OR PL=14 OR PL-163 AND RNDC1D>.B 
THEN nS$C0]-"THE BEAR AGAIN.": GOTO 4500 



143 



ABACUS Software ADUENTURE BAMEWR ITER'S HANDBOOK 



4.10 FROH TEXT TO GRAPHICS ADUENTURE 

In addition to the features discussed, adventure programs 
recently introduced usually have an outstanding graphic 
presentation. Far each space in the adventurB there is a 
picture on the disk that when required is loaded into the 
computer screen memory . 

To produces such elaborate graphics and integrate them into 
our adventure system will not be possible for us without 
some aids. Even so at this point we are going to suggest a 
way of making your programs more attractive. 

Presumably you too have often regretted the fact that the 
Commodore 64 - Basic contains no commands for making Hires 
pictures. Therefore you have the choice of using a BASIC 
extension such as UIDEO BASIC from ABACUS SOFTWARE or the 
graphics characters that can be input via the keyboard. 

Both solutions necessitate a few small alterations to our 
driver program, since the outputs now have to be made at 
other points of the screen. 

Presumably you too will prefer to restrict the text output 
to the lower part of the monitor picture. For this purpose 
you must alter all lines of the driver that position the 
cursor C1070, 1080, 1090, 1130, 13903 and you must do that by 
poking the new line number into storage position 214. When 
using UIDE0 BASIC, select suitable co-ordinates far the TEXT 
command . 

You leave the structure of the particular graphics concerned 
to a number of subroutines called up from the driver. It 
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should however be noted that this printing routine does not 
have to be called up after every input made by the player, 
so we introduce a further check variable: 



1143 IF ALTO PL THEN PRINT CHRSC1473 :60SUB 30000 
114S ALT-PL 



After a space has been drawn its number is passed on to the 
variable ALT. If the player moves into another space, the 
condition in the line 1143 is fulfilled, the screen is 
cleared, and line 30000 is called up. This line selects the 
correct character routine on the basis of the space number: 

30000 ON PL S0SUB 31000,32000,33000 

30010 RETURN 

31000 REM SPACE 1 

31999 RETURN 

35000 REM SPACE E 

31399 RETURN 

After this the program is continued with the rest of the 
command . 
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5. THE ADUENTURE EDITOR 

The preceding chapters have provided you with the necessary 
tools For writing good adventures. Even so, although with 
our system we have devBlDpBd a concept that for the 
development of different kinds of adventures necessitates 
only the programming of the data, conditions, and actions 
involved in the game concerned, a considerable amount af 
work is necessary before an attempt at a game can begin. 

The Job would be simplified by using what is called an 
adventure generator, which, when all the necessary data have 
been input, leaves behind on the disk a finished, ready-to- 
play program. 

This solution still requires that the planning of the game 
has been completed, since before the generator can start 
the adventure producer has to prepare a list of all 
ROOMS, objects, verbs, etc and then input this data in a 
mammoth session . 

If any errors come to light while the program thus produced 
is being tested, they must be rectified in the usual way. 

Therefore a far more desirable solution would be one that 
immediately records Bvery individual thought of the author 
and moreover immediately checks it and improves it. 

This however can happen only if instead of producing a 
finished program a file is developed containing all the 
necessary data for a game to be played. The evaluation af 
this data then becomes the Job of an interpreter containing 
the routines required for execution of all kinds af actions. 
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S.l THE FILE 

It has already been made clear that the actual adventure is 
now represented only by a file. This must contain all 
details necessary to a given game in a precisely defined 
order, so that the interpreter is able to read various 
adventures of different length. 

If we make a close examination of one of the adventures we 
have programmed, it is seen that many of the adventures 
already work interpretively . 

The verbs, ' like the objects, are not called on directly to 
execute an action, but first two numbers are ascertained 
whose combination establishes exactly what input the play Br 
has made . 

As a prerequisite to this method of working, it was 
essential to read the words into variables, a process that 
instead of using the data lines can make direct use of the 
file on a disk C cassette] . 

Ue have already also ascertained the data typical of games 
and entered them into the program in lines 100 to S00 as 
characteristics of the adventure. 

Let us now consider what values from this block are 
necessary for an interpreter that, while not containing all 
the extras offered by one system, does offer a sufficient 
number of functions to make a game possible. 

First we find some information on the number of existing 
rooms, objects, and verbs. These limiting values prove 
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necessary For correct control of the reading-in loops and 
for the same reason mill be necessary for the interpreter. 
U)e shall also have to fix the exact number of all 
messages, since they will be kept in variables. 

The same applies to the conditions and actions. In a field 
similar to the direction table PAC.3 we shall keep the 
playing data ready for reading so we add the variables AC 
and BC Caction codes and condition codes] to the list of 
characteristics . 

Now we must include the number of flags, since our 
interpreter must be able to store the score . 

As another value important to the game, we must include the 
player's starting position in the file. It is true, the 
functioning of the system would still be ensured even if PL 
were not initialized at the start of the game, but then 
every adventure would always have to begin in space 1. At 
first sight there is no disadvantage to this, but Just 
imagine if after some slight change in the action the 
adventurer is to start the game at some completely different 
place. If then there is no PL variable that can be 
reinitialized accordingly, you must rewrite all space 
descriptions in accordance with the new planning. 

Us cannot dispense with a score by points. However, in 
order that the end of the game may be defined, we shall 
provide for an action that can evaluate the flags or the 
objects in the inventory. 

It is recommended that name of the author, the name of the 
adventure, and version number be kept in the file. 
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5.5 THE STRUCTURE OF THE EDITOR 

The task of the editor is to make it possible for the user 
to input this data and, if necessary, alter it in a 
convenient and clear way . For this purpose a number of 
program lines will be called up through a menu. 

Here the sequence mill to a certain extent be predetermined, 
for so long as the spaces do not yet exist, the objects 
cannot be placed. The menu screen for the construction of an 
adventure with the editor could look like this: 

ADUENTURE EDITOR UER i.O 

- DATA 

1 - INPUT SPACES 

2 - INPUT OBJECTS 

3 - INPUT UERBS 

4 - OBJECT POSITIONS 

5 - CONNECT SPACES 

B - CONDITIONS & ACTIONS 
7 - INPUT MESSAGES 
B - DISK ACCESS 
3 - PROGRAM END 

PLEASE CHOOSE 

The user chooses the function required by inputting the 
appropriate number, so, following the commands needed for 
the above picture, we provide the Jump line: 

210 ON A GOTO 1100,1200,1300,1400,1500, 
1600,4000,5000 
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S.2.1 THE INPUTS 

Before ue start structuring the individual subroutines, thB 
Fallowing mill help us to keep thB amount of work involved 
as small as possible and the editor short. 

The user must always be informed of the data expected, so 
that he may make correct inputs. To help you ue construct 
some simple input masks containing appropriate references. 
These masks will be largely identical, at least when the 
ROOMS, objects, and verbs are input, so a common program 
section is indicated for these Jobs. 

In order that this subroutine may give the correct 
instructions, the following titles must be made available 
before calling thB subroutine: 

1100 PRINT CHRSC1473:T1S-"INPUT PLACES" 
:T2$— .ROOM NO . " : T3S- " I AM" 

1105 Z-NS 
1110 GOSUB 510 

Following this the number of existing ROOMs is communicated 
to the variable Z and the input/output mask is called 
CLINE 11103. 

To structure the mask, the cursor must repeatedly bs 
positioned at other points in the manner already explained. 

However, in order not to make thB program difficult to read 
with a lot of POKE instructions, we provide for a further 
subroutine that sets the cursor to the requirss lins and 
column: 
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11000 POKE 211,ZE:P0KE S14,SP:SYS 5B732:RETURN 

499 REM I/O ROUTINE 

500 PRINT "»"; 

510 ZE-OSP-0: BOSUB 11000: PRINT T1S 

520 Z-Z+l 

555 ZE-0:SP-25:G0SUB 11000: PRINT T2S;Z 

55B PRINT M3S 

557 ZE-16:5P=0:S0SUB 11000: PRINT M4$ 

55B ZE-16:SP-0: BOSUB 11000: PRINTZ-lj : IF A=l THEN 

PRINT RESCZ-1D 

559 IF A=2 THEN PRINT OBSCZ-13 

560 IF A=3 THEN PRINT UERBSCZ-1D 

5B3 ZE-20 : SP-0 : BOSUB 11000: PRINT3S; : EI$='*" : INPUTEIS 
5B4 IF LEFT$CEIS,13- ,, »"THEN BOTO 500 
5B5 IF A-2 THEN ZE+22:SP-0: BOSUB 11000: INPUT 
"OBJECT NAME ";RNSCZ3 

570 ZE-20 : SP-0 : B05UB 11000: PRINT M4S 

571 ZE=22:5P=0: BOSUB 11000: PRINT M4S 
590 RETURN 

First the appropriate references are printed aut . In lines 
55B to 560 a check made on the value in A that establishes 
what data to be input is involved. Then, as a reminder, the 
last previously input word is printed. 

Line 569 accepts the input, and the allocation to the 
correct variable is made within the calling subroutines 
Cwith the exception of the second object name, which is 
input in line 5653 . Lines 570 to 571 delete the input lines 
and so prevent values previously input From being taken at 
the next input. The function called up is ended by line 564 
after an asterisk has been input. The object and verbs are 
input as in this example. 
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5.2.S SPACE CONNECTIONS 

First it is necessary to indicate all possible spaces, so 
that the user may input the correct space numbers. Since 
this function is necessary for placing the objects, uie 
construct a further subroutine C1E000 -1E0703 . 

Then for all spaces the six directions are interrogated in 
turn and the inputs written directly into the corresponding 
position of the direction table: 

14S9 REM CONNECT SPACES 

1500 FOR R1-1S TO AR 

1520 BOSUB 12000 

1530 PRINT "SPACE" ;R1; "LEADS NORTH INTO SPACE"; 

: INPUT DUCR1.13 
1510 PRINT "SPACE" ;R1; "LEADS SOUTH INTO SPACE"; 

: INPUT DUCR1.S3 
15B5 NEXT Rl 
1590 BOTO BOO 
15S1 REM • END OF CONNECTIONS 
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5.2.3 ACTIONS & CONDITIONS 

Before we proceed to input the more important data, the 
conditions and actions, uie must develop a coding system. 

For keeping the data uie use a two-dimensional array. This 
time the rows are predetermined by the verbs and the columns 
by the objects. 

To make it easy to interpret the conditions, we decide on 
coding by letters. It is true numbers would have the 
advantage of speed in processing, but it is certainly more 
difficult to recognize the significance of a twelve digit 
figure than to interpret a string such as RF3S22 if 
conventions have been observed as seen in the following 
illustrations . 

PLEASE INPUT ALL CONDITIONS FOR THE ACTION 
"EXAMINE DOOR" 



R - OBJECT IS IN THE SPACE 

I - OBJECT IS IN THE INVENTORY 

N - OBJECT IS NOT AUAILABLE 

FX - FLAG X IS SET 

GX - FLAG X IS DELETED 

SXX - PLAYER IS IN SPACE XX 



OLD CODE ■==■=> 
CONDITIONS? RS02 
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These conditions are perfectly adequate when is comes to 
ensuring that the player's actions cannot be carried out 
except at the times prescribed by the plot. 

The actions provided for are also essentially in accordance 
with the ides from the previous chapters. The only new thing 
added is the commands Dxxy and E. 

The command D is intended to cause the interpreter to make 
visible an exit from the present space to space xx in the 
direction y. E ends the game and informs the player of his 
victory . 

RSOe FULFILLED, THE FOLLOWING ACTION: 

U - DODR DISAPPEARS 

I - DOOR COMES INTO THE INVENTORY 

NXX - OBJECT XX REAPPEARS 

DXXY - PASSAGE TD RDDI1 XX DIR. Y 

SXX - PLAYER TO SPACE XX 

FX - SET FLAB X 

LX - DELETE FLAG X 

MXX - OUTPUT MESSAGE XX 

T - PLAYER DIES 

E - END, PLAYER HAUING WON 

OLD CODE — > 
ACTION? MOS 
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S.2.4 THE MESSAGES 

These can be written into the correct variables without 
Further ado immediately on inputting. The program part 
provided turns out to be correspondingly short: 

39SS REM COMMUNICATIONS 

4000 PRINT "INPUT COMMUNICATIONS" 

4010 PRINT M3S 

40S0 AM-AM+1 

4030 PRINT AM: INPUT MSSCAMD 

4040 IF LEFT$CMSSCAM3-"«" THEN AM=AM-1 : GOTO 200 

4050 GOTO 4050 

4060 REM END OF COMMUNICATIONS 

AM keeps a check on the number of messages input and, on 
completion of the Function, must be reduced by one when 
inputting as asterisk. 
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5.2.5 DISK ACCESSES 

This is necessary For storing the file or for reloading it 
into the computer for reprocessing. In order that the file 
be available for rebuilding by the interpreter, even if a 
game has not yet been fully completed, additional data must 
be input before any storage operation. 

What is above all important to the interpreter is the word 
length, since the interpreter is not supposed to occupy any 
more memory than is necessary . 

As already mentioned, the player's starting space must be 
contained in the file, Just as the number of flags used 
becomes important to the interpreter as soon as the SAUE 
6AME function is called up. 

After these values have been input, all the data is placed 
on the disk as a sequential file. Cassette users are asked 
to note thB changes given in the previous chapter . 

Otherwise the listing of the adventure editor has no 

peculiarities, so you should understand the method of 

operation, due to to the individual blacks, and be able to 
expand the program as you wish. 
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5.3 THE ADUENTURE INTERPRETER 

Understanding the interpreter itsBlf will not cause you any 
difficulty, since, like our adventure programs, it is built 
up from three blocks. 

In the first part of the program the variables are again 
initialized with the data necessary for the game. Instead 
of the DATA lines with the relevant READ instructions uie now 
use a data file produced with the editor. 

After you have selected the file required, it is evaluated 
and entered from line 50 to line BOO. 

The program block from line 1000 up to and including line 
2160 corresponds to the driver developed by us. No 
alterations are necessary. 

Entirely new however is the method of carrying out the 
actions. 

A single program, the interpreter, is supposed to enable 
different games to be played. Therefore it is not possible 
to use rigid structures always tailored to only one given 
situation. From a series of individual actions, those 
necessary to the particular case concerned are nicked out 
and carried out until the sum of their effects has achieved 
the same result. 

Ue pursue this strategy both when checking the conditions 
and when carrying out the actions. 
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2200 FOR AB-1 TO LENCBCSCUN.N3 3 
2210 RD$CABD-t1ID$CBCSCUN,N3,AB,13 
2220 NEXT AB 

First the final value of the loop is ascertained, this being 
dependent on the number of letters used for coding a 
particular action. Then the entire string is split up into 
the individual conditions, each of these being allocated to 
one element of the list BDSC3. 

A further loop now checks the fulfillment of each individual 
condition within a further loop. 

On coding, however, it was necessary to fix two or more 
parameters for sane of the conditions . Thus code S 
Cpresence of the player in a specific space] requires an 
indication of the space number, Just as in the case of F and 
6 the flag concerned has to be named. 

For these reasons we dispense with a For/Next loop and 
instead select a structure that allows us to increase the 
loop counter by differing values of our choice. 

In addition to this variable CK3 we use a further variable 
CRESULT3 that after each execution of the loop is supposed 
to be logically truB C-13, if the condition has been 
fulfilled, and then on leaving the loop will be logically no 
COD if only one condition is Fulfilled. 

2300 X»0:ER-0 

Each execution of the loop must begin with raising the 
counter. Immediately thereafter a check is made to see 
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whether the final value, which of course is dependent on the 
number of conditions, has or has not been reached. 

5310 X-X+l 

2320 IF X-AB+1 THEN 2500 : REM ALL CONDITIONS CHECKED 

Depending on ER, it is now decided whether a reaction takes 
place or whether the player has to carry out further 
preparatory actions. 

2500 IF NOT ER THEN PR I NT "THAT CANNOT BE DONE AT 
PRESENT .": GOTO 10B0 

3333 REI1 ALL CONDITIONS FULFILLED 

4000 PRINT "O.K." 

Within the loop body the conditions are checked one after 
thB other, the program line concerned being ascertained in 
the same way as, for example, the routines for handling the 
one-word commands within our driver program: 

2330 IF BDSCX3<>'*R ,, THEN 2350 

5340 IF 0BCN3OSP THEN ER— 1 :S0T0 2310 

2350 IF BD$CX3<>"I"THEN 2370 

2360 IF 0BCN3O-1 THEN ER— 1 : SOTO 2310 

2370 IF BD$CX3<>"N" THEN 2330 

23B0 IF C0BCN3OSP AND 0BCN3O-13 THEN ER— 1 : 

GOTO 2310 

2330 IF BDSCX3<>"S" THEN 5410 

2400 RlS-BDSCX+13+BDSCX+23:X-X+2: IF SP-UALCR1S3 

THEN ER— 1 : GOTO 2310 

2410 IF BD$CX3<>"F" THEN 2450 

2420 IF FLCUALCBDSCX+13 3 3— 1THEN 2440 

5430 X-X+l :G0T054S0 
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2440 ER— -l:X-X+l:GOTO S310 

2450 IF BD$CXK>"G" THEN 2310 

2460 IF NOT FLCUALCBOSCX+13 D ] THEN 2480 

2470 X~X+1:G0T0 2310 

24B0 ER=-1:X=X+1:G0T0 2310 

2490 GOTO 2310 

Apart from lines 2400 to 2470 these lines mill not present 
you with any kind of problem. In line 2400 the next two 
elements of the condition code BDS are also called upon in 
order to ascertain the space number. Then the counter is 
adjusted and, if necessary, the result variable set to true. 

The lines provided for evaluation of the flags work in a 
similar way. The program lines executing a command work in 
an identical manner. 

Within this block attention need be drawn only to lines 5200 
to 5290, which, for example, make it possible to open a 
door. By manipulating these lines, the correct values are 
written into the direction table, so that on the one hand 
the new passage becomes visible C5220D, while on the other 
there is a way back if the player has moved into the new 
space C5230 to 5290] . 

Lines 5500 to 5700 each contain a short subroutine that 
serves to determine a two-digit figure C5500D, a single 
figure C5B00D, or two figures C5700D . These values are 
needed for outputting the correct messages and the correct 
handling of the flags and for opening a passage to o 
specific flag in one of the six directions. 

Please obtain the complete listings from the next chapter. 
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S. AOUENTURE PRACTICE 

This chapter mill not show you so much how you do something 
as what you can do . 

You will find the complete listings of two adventures that 
have been written using the program parts and routines 
developed in this book and also operating instructions for 
the software printed below. 

One of the adventures, is called Bold Fever, an adventure of 
which already quite enough has been said. The other is The 
Enchanted Castle, an adventure program for whose solution we 
shall not give any information of any kind. 

Unfortunately however the position is that when you have 
worked through this book you will be able to read the 
programs almost like set of instructions for solving them. 
Therefore it is recommended that you share the Job of typing 
them in with someone . 

This applies in particular to the program lines starting at 
number 5000, as here the action is programmed. 

Then you will find two shorter programs involving an 
adventure editor and its interpreter . 

Both programs together enable you to produce menu-controlled 
adventures and to play them from the very first step in the 
development of the story . 
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6.1 INSTRUCTIONS FOR PLAY INS ADVENTURES 

After you have started the program with RUN, the first 
descriptions and communications will appear on the monitor 
following the header picture and other general notes on 
playing. 

You must distinguish between the upper and lower halves of 
the screen: In the upper half you will find a description of 
the place in which you happen to be. Directly below all 
visible objects are listed, and another line indicates the 
direction in which you can move. The lower half is used for 
inputting your commands to the program and for outputting to 
you the information dependent on the execution of your 
input . 



6.1.1 YOUR INPUTS: 

Your usual inputs will consist of two words, a verb and an 
object. See that you use designations that are the same as 
output in the upper part of the screen. 

This does not however mean that following a communication 
such as 

I CAN SEE A RED DDDR . 
WHAT All I TO DO? 

You react with OPEN RED DOOR. Usually the input OPEN DOOR 
will be perfectly adequate. 
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In addition you will be allowed a Few Further inputs, 
commands known as one-word commands, which permit certain 
Functions that, while not being absolutely essential to the 
game, simplify it. 



B.1.2 THREE-DIMENSIONAL PROGRAMS 

Generally you can always move in the directions indicated. 
For this purpose it is suFFicient to input the initial 
letter oF the direction concerned: north, south, east, west 
CN,S,E,UI3 and up or down CU or D3 . 

These are however exceptions, and sometimes an input such as 
ENTER... can be used to good eFFect . 



B.1.3 MANIPULATION OF OBJECTS 

Naturally you want to da more in the imaginary world than go 
on a sightseeing tour: you want to act and solve a problem. 



For this purpose you must First discover the objects in this 
picture world. Then you can EXAMINE them, TAKE them, USE 
them, etc. CIF you are ever stuck, you should remember 
these words! 3 . 

Let us assume you find a key. You think: "Great, but what 
am I to do with it?" 

In real life you would look at it, examine it carefully, and 
then decide whether you are going to leave it or whether you 
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consider it to be useful or even valuable and therefore 
whether you are going to take it with you. You should 
follow this logical course of events in the adventure. 

Input: EXAMINE KEY. In answer you may get: IT IS THE KEY TO 
MY HDUSE or: IT IS A CAR KEY or: IT IS MADE OF PURE SOLD. 
Naturally you would not leave any of these keys behind, but 
would take them all with you, so input: TAKE KEY. The 
communication then appearing on the screen is an O.K. CYou 
will often see this O.K.; it means that the adventure 
interpreter has understood and executed your input. J. 
Furthermore the key will no longer appear in the heading 
line I SEE, since, as you have taken it , it is now in your 
coat packet Cor somewhere else on your person], but no 
longer in the space. 

If in the course of the game you have accumulated a lot of 
objects in your packets, you will probably lose count, so 
the interpreter offers you the possibility of making an 
INVENTORY. Whenever you want to know for example whether 
you are carrying anything around with you that would help 
you to solve a particular problem, you simply input INU. 
the answer that immediately appears is: I AM CARRYING THE 
FOLLOWING ITEMS. A list of all the objects concerned then 
follows . 
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6.1.4 INTERRUPTION OF PLAY: 

You will probably not bB able to solve an adventure in one 
day, and naturally you do not want to start all over again 
the next day. Therefore you will need the possibility af 
storing your progress so Far . 

IF you want to end a game temporarily, you simply input 
SAUE. The interpreter then asks you Far a name under which 
it is to store the latest situation. 

Storing the current stage of your progress is actually 
recommended at sometimes. For example it could happen that 
you want to climb a step rockFace, but are wearing the wrong 
sort oF Footwear. It is highly probable that you will Fall 
and break your neck. Then you would have to start all over 
again and repeat all your inputs, a job that timely storage 
oF the game would have saved you. 



B.l.S CONTINUING AN INTERRUPTED SAME: 

When you have stored the situation, you simply input LOAD. 
The interpreter then asks you under what name you stored the 
gamB and, Following depression oF the <RETURN> key, 
continues the game From the point at which it was 
interrupted . 
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6.1.6 OTHER INFORMATION: 

When you play on adventure, you must first find out what 
sort of adventure it is. You have either to solve a 
problem, look for an exit or collect treasures. You should 
first EXAMINE everything and act as logically as possible 
Cthus to OPEN a LOCKED DOOR you first need a KEY, a CROWBAR, 
or something similar} . If you are on the right path, the 
interpreter mill let you know this with a message such as 
THAT CANNOT BE DONE AT PRESENT or I DO NOT UNDERSTAND WHAT 
YOU MEAN. 

These messages signify that the words used in your input 
have been understood, but not all the conditions necessary 
for execution of the action have yet been fulfilled Cfor 
instance the KEY is missing]. 

If a verb or the object is not understood, you will be 
informed and you should try to reach the same goal with 
other words . 

O.K. is a signal to you that an input has been understood 
□nd that a reaction has taken place. Mostly the lower 
half of the screen will display other messages that describe 
the reaction more accurately. 
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6.2 TIPS ON HOW TO SOLUE AN ADVENTURE 

IF you are completely stuck in a given situation, you can 
First try HELP. 

IF you do not get more inFormation by doing this, recall all 
the objects so Far discovered. Almost certainly each object 
has a job allotted to it; to use it only to decorate a space 
would involvB too much programming work. 

Here, a list oF all words understood by the program would be 
useful; this could possibly be drawn up For you From the 
adventure itselF, Following the command UOCabulary. 

Equally useFul would be a map on which you enter all the 
spaces with their connections, naturally not Forgetting the 
places where the objects were Found. 

In the case oF a maze, however, making such a map is not 
quite as easy as you may imagine. 

Instead oF only spaces that really exist, one has oFten 
mapped three times that number. The only trick that can be 
used to avoid this is to deposit one object From the 
inventory in each space oF the maze, thus making it 
impossible to get the individual locations mixed up. 

And as a Final bit oF advice: 

In between times store your game aver and over again! 
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6.3 PROGRAM LISTINGS 

The Following pages contain the program listings: 

1. BOLDER FEUER 

H. THE ENCHANTED CASTLE 

3. ADUENTURE EDITOR 

4. ADUENTURE INTERPRETER 

The programs were listed with a TURBOPRINT GT printer 
interFace in thB special listing mode. Please see Appendix 
A For a complete description oF the listing codes. 

The listings in this book are available on a ready to run 
1541 Diskette. By purchasing this diskette, you can 
eliminate typing thes programs into your Commodore 54. 

ThB programs on the diskette have been Fully tested and are 
available For S14.35 + S2.00 CS5.00 ForBignJ postage and 
handling charge. 

To order send name, address, and a check, money order or 
credit card inFormation to: 

ABACUS SOFTWARE 

P.O. BOX 7211 

GRAND RAPIDS, MI 4S510 

Or call CB163-a41-5510 For the name oF your nearest dealer. 

Be sure to ask For the "Optional Diskette For the Adventure 
Gamewr i ter ' s Handbook " . 
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1 REM — SOLD FEWER, UERSION 1.0 — 

2 REM CC3 13B4 BY UALKDUIAK 

10 REM TITLE PIC 

TURE 

11 P0KE53281 ,11: P0KE532B0 , IE : PR I NTCHRS C 1 
423 

12 PRINT'CCLRV 

13 PRINT"CCM5> CCH+ 

>ccn+3Ccn+>ccn+>ccn+>ccfi+><:cri+>ccM+>ccn+ 
jccn+3ccn+><:cn+3Ccri+Jccn+3ccri+> 

14 PRINT"CYEL> CSHOCCMYJ CSH03CSHP} C 
DIG) CSH03CSHM> CBLK>CSH0>CCnY> CSHOiXC 
MYJ CCnS>CCHn> CSHOJCCtlYJ CSHOKSHPXCIIS 

3ccn+>ccn+>ccn+3ccn+>ccn+>ccn+>ccn+>tcn+ 

15 PRINT"CYEL> CCt1H:XCHP3 ccroocairo c 
CMB5 CCnH>CCMM5 CBLK5CSHL3CCMP3 CSHLKC 

mp> ccnsxcroi} csHL>ccnp> csHL>csHe:><:cri5 

> CCMM5CCHN>CCMNJ cc(i+>ccn+5ccn+> 

IB PRINT"CYEL> CSHL>CSH@> CSHL>CSH(23 C 
SHL>CCMP> CSHL>CSHN> CBLIOCCMBJ CSHLJCC 

ripj cshmxshnj cshl>ccmp> ccwocsHti><:cri5 

> ccnn>cctiN>ccriN> ccr-HOcai+KcrH-} 

17 print"cblk> cshu>csh»><:sh»>csh»><:sh» 
>csh*5tsh»><:sh»5csh*>csh»><:sh*>csh*>csh* 
>csh«>csh»>csh»3cshi> cch5> cch+jcci1+3c 
cn+> ccfitiJcaiNJCcrifO ccn+>ccn+3ccn+> 

IB PRINT"CBLK> CSH-> CCMBKCJ 19B4 

cblk>csh->ccii5j ccti+>ccri+jccri+5 c 

ctiroccMNKCMN} <crvoccii+:><:cii+> 

19 PRINT"CBLJO CSH-3 ccmbjby 

tBLK>tSH-3ccti5> ccn+>ccn+>ccn+> c 

ow>caiNxaiN> ccrwoccrHOcaio 

20 PRINT"CBLK> CSH->CCnB3J0ERB UIALKDWIA 

KCBLK><SH->ccn5> ccti+>ccn+>ccn+5 c 

cnn>csHejcsHN> ccn+>ccn+>ccn+> 

21 PRINT'-CBLIO CSHJ>CSH»><:SH«>{:SH»3CSH» 
>CSH*>CSH*3CSH»JCSH»>{:SH*}CSH*3CSH*>tSH* 
JCSH»>CSH»JCSH»3CSHK> CCM53 CCtl+JCCM+iK 

ai+> csh > csHN>tsH»>csH«><:cn+>ccn+j<: 

CM+3 

22 PRINT" CCmi CSHU>CSH«5CSH«>{:SH» 
>CSH»>CSH»>CSH*>CSH«JCSH*JCSH«JCSH«J<:SH« 
>CSH*>CSH»>CSH*><:SH*3CSHI>CCn5>CCri+> 

cshn> ccfi+Jtcn+Jccn+> 

23 PRINT" CC(12} CSHUJ 

cshi> ccns>ccn+> cshn> ccri+>ccn+jc 
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CI-HO 

24 PRINT" CCM2J CSHU3 t 

SHIJ CSHN>CCf15>CCM+J CSHN> CCH+JCC 

m+:kcm+:> 

55 PRINT" CCMB> tSHUJCSH»>CSH»JCSH«>CS 
H*>CSH»>CSH*JCSH*JCSH»J<:SH»><:SH»JCSH»>CS 
H«>CSH*>tSH«>CSH»3CSHn CSHN3 CCM53CCM+J 

CSHNJ{:SH»JtSH»5CSH»>CSH*JCSH*JtSHN>CCt1 
+3CCM+JCCMO 

SB PRINT" CCMBJ CSH03 CS 

HPJCSHN3 CCMSKCM+J CSHNJ CSHNJ CCM 

+>tcn+jccn+3 

57 PRINT" £CH5> CSHOXCMYJCCMYXICMYKC 
(1YJCCf1Y5CCriYJCCnYJCRUSJCYEL> COFF3CCM2JC 
CMYiKCMYiKCMYKCMYJCCMYiKCMYKCMYKSHP} 

CCMH5CCM55CSHN} CSHNJ 

SB PRINT"<:criHJ CCMH> CRUS3CYELJ 

CSHZ3CQFFJCCn2> CCMM> CCMH> 

23 print"ccm2> ccmh3 cc 

mm> cshn> 

30 print"cch2> tcrni CC 

MM5 CSHN3 

31 PRINT"CCM25 CSHLIKCMPJKCMPiKCMPMC 

mpkcmpkcmpkcmpjccmpixcmpkcmpkcmpxc 
np>ccnpj<:cnp>ccnpjcsHe>csHNj 

32 PRINT"C DN5 CCMBJFROM THE CUI 
HTJ ABACUS CCMB^BDOKC DN>" 

33 PRINT" 'ADUENTURE BAMEWR I TER • S HAN 
DBDQK ' " 

39 FOR 1-1 TO 10000: NEXT 

100 REM ruek1) 

ACTERISTICS R 

101 : 
110 AR-31 
120 AO-44 
130 AU-11 

140 UIL-3 : AM-10 
150 SP-1 
1B0 AF-7 

170 U1M-60 

171 UIE-0 
180 ZU-0 

1B5 IM-4 : REM MAXIMUM LOAD TO BE CARRIE 

D 

IBB LM-0 :LI— 1 : LUI-1 : Ll-BO 

130 DIMRASCARJ.DUCAR.BJ.OBSCAOD, RNSCA03 

, OBCAOD,FLCAF3,MS$tAM3,UESCAU3 

133 : 

200 REM UERBS 



17B 



ABACUS Software 



ADUENTURE BAMEWRITER'S HANDBOOK 



201 

202 

203 

204 

205 

206 

207 

20B 

209 

210 

211 

239 

300 

09 

301 

302 

303 

304 

3 

305 

306 

307 

308 

309 

310 

LE«, 

311 

312 

313 

314 

".0 

315 

.4 

316 

317 

316 

319 

320 

321 

322 

323 

324 

325 

326 

327 

32B 

329 

330 

331 



DATA EXAMINE 
DATA TAKE 
DATA DROP 
DATA OPEN 
DATA U9E 
DATA BREAK 
DATA LIGHT 
DATA FILL 
DATA ENTER 
DATA EXTINGUISH 
DATA SECURE 



REM 



OBJECTS 2 



DATA"A LOT OF BIG TREES" , "TREES", 1 
DATA"A LOT OF BIG TREES" , "TREES", 2 
DATA"SOME BOULDERS" , "BOULDER" , 2 
DATA "A RAMSHACKLE WOODEN HUT", "HUT", 

DATA"A DIRTY JAR", "JAR", 

DATA "HONEY" , "HONEY" , 

DATA"A WOODEN BOX", "BOX", 3 

DATA"A RICKETY SHELF" , "SHELF" ,0 

DATA"SOME EXPLOSIUES", "EXPLOSIUES", 

DATA "A MURKY HOLE IN THE GROUND", "HO 



DATA"A RUSTY IRON CHEST" , "CHEST ",0 

DATA"»SILUER COINS*", "COINS" , 

DATA"A DARK CAUE", "CAUE" ,5 

DATA"A FEROCIOUS LOOKING BEAR", "BEAR 

DATA"NUMEROUS SMALL BUSHES" , "BUSHES" 

DATA"SEUERAL IRON BARS" , "BAR", 6 

DATA"»NUGGETS»" , "NUGGETS" , 5 

DATA"AN IRON BAR", "BAR", 

DATA A COAL CAR, CAR, 7 

DATA BROKEN DOWN RAILS, RAILS, 7 

DATA A ROPE, ROPE, 

DATA A HEAUY PICKAXE, PICKAXE, 8 

DATA AN OLD LANTERN , LANTERN , B 

DATA THE END OF THE TUNNEL , TUNNEL , 9 

DATA AND IRON HOOK, HOOK, 

DATA A SHAFT, SHAFT, 3 

DATA A WOODEN WALL, WALL, 10 

DATA MINERS RUBBLE, RUBBLE, 11 

DATA OLD SACKS, SACKS, 

DATA DAMP STONE WALLS, WALL, 13 

DATA AN EUIL SMELLING LIQUID, LIQUID, 



17S 



ABACUS Software ADUENTURE BAMEWR ITER'S HANDBOOK 



17 

33E DATA A CORPSE, CORPSE, IB 

333 DATA »LUMPS OF SILUER*,SILUER, 

331 DATA "SOLD COINS*, COINS, 

335 DATA COBWEBS , COBWEBS , 20 

336 DATA A BOLDEN WALL, WALL, 22 

337 DATA A NOTICE BOARD , BOARD , BB 
33B DATA *GOLD* , GOLD , 31 

333 DATA A SEA SHORE , SHORE , 30 

340 DATA THE LAKE, LAKE, 30 

341 DATA GOLDEN STONES, STONES, 
34B DATA FUSE, FUSE, 

343 DATA A MATCH, MATCH, -1 

344 DATA -, PARADISE, 
433 : 

500 REM SPACE DESCRIPTIONS 

501 DATA"IN THE WOOD .", 1 , 1, 1 , B, 0,0 
50B DATA"IN THE WOOD. ",B, 1 , 1 , 3,0,0 

503 DATA" IN THE WOOD BY AN OVERHANGING R 
OCK. ",0,4,3,0,0,0 

504 DATA" IN A CLEARING IN THE FOREST.", 3 
,0,5,0,0,0 

505 DATA"IN A CLEARING BY A HILLSIDE. ", 
,0,6,4,0,0 

506 DATA "BY THE ENTRANCE TO AN OLD MINE. 
",7,0,1,5,0,0 

507 DATA IN THE ENTRANCE . ,B, 6, 0,0, 0, 
50B DATA IN A RECESS OF THE TUNNEL., 3, 7, 
8,10,0,0 

503 DATA AT THE END OF THE TUNNEL . ,0,8,0 
,0,0,0 

510 DATA IN A SIDE-TUNNEL ., 11 ,0,8,0,0,0 

511 DATA BY AND OLD DEMOLITION SITE., 0,1 
0,0,0,0,0 

512 DATA IN THE CAUE. ,0,5,0, 13,0,0 

513 DATA IN THE CAUE. , 0,0, IB, 14, 0, 

514 DATA IN THE CAUE ., 0, 16, 13, 15,0,0 

515 DATA IN THE CAUE ., 0,0, 14, 0,0, 

516 DATA ON A PATH ., 14, 0, 0, 17,0,0 

517 DATA IN A SIDE CAUE . ,0, 0, 16, 0, 0, 

518 DATA ON THE FOOR OF THE SHAFT., 0,0,1 
9,0,0,0 

51S DATA ON A WINDING PATH ., 24,0, BO, IB, O 

,0 

5B0 DATA IN A WIDE CORRIDOR. ,0,0, Bl , 13,0 

,0 

521 DATA ON OLD DEMOLITION SITE, 22, 11 , 11 
,20,11,0 

522 DATA IN THE DOME OF A CAUE. ,0,21 , 0,0 
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,27,0 

523 DATA IN AN UNDERGROUND PARADISE ., 0,0 

,0,0,0,0 

551 DATA ON A WINDING PATH ., 26, 19,24, 24, 

24,24 

525 DATA ON A WINDING PATH. , 27,24,24,23, 
26,24 

526 DATA ON A WINDING PATH. ,27,24,26,27, 
27,24 

527 DATA ON A WINDING PATH . ,25,24,26,27, 
26,24 

526 DATA ON A WINDING PATH ., 24,26,26, 27, 
0,0 

529 DATA ON A WINDING PATH. , 0,27, 30,27, 
,0 

530 DATA BY AN UNDERGROUND LAKE ., 26,0,0, 
0,0,0 

531 DATA IN A SMALL CAUE . ,30,0,0,0,0,0 

599 : 

600 REM INFORMATION 

601 MSSC 13-" I CAN'T SEE ANYTHING SPECIAL 

602 MSSC 23-" I AM NOT THAT STRONG." 

603 MSSC 3 3- "WHAT DO YOU MEAN ?" 

604 MSSC 4 3- "THE BEAR TAKES THE HONEY AND 

M 

605 MSSC 5 3-" DISAPPEARS INTO THE DEPTHS 
F THE CAUE." 

606 MSSC 63- "HOW CAN I BREAK THE CHAIN ?" 

607 MSSC 73- "THE ROPES STILL HAN6ING FROM 
IT" 

609 MS$C93-"THAT IT WAS PULLED ALONG WIT 

H." 

609 MSSC93-"WHEN GREED TAKES OUER, DEATH 

IS NOT FAR BEHIND." 
699 : 

699 REM 2, TITLE: INTRODUC 

TION 

700 PR I NT " CCLR3 " : P0KE53260 , : P0KE53261 , 
:PRINT"CPUR3"jCHR$C143; 

710 PRINT"CSHW>ELCOME TO THE ADUENTURE . . 

» 

715 PRINTSPCC153"C DN3CYEL3CSH63CSH03CSH 

L3CSHD3CSHR3CSHU3CSHS3CSHH3C DN3" 

720 PRINT"tWHT:><:5H*>CSH*>{SH»3CSH*><:SH»3 

CSH»3CSH»3CSH*3CSH»3CSH»JCSH»3CSH»3CSH»J 

CSH*3CSH«3tSH*3CSH»3CSH*JCSH*3CSH*3CSH»> 

CSH*3CSH«3CSH*3CSH»3CSH*3CSH«3CSH»>CSH*> 

CSH*3CSH»3CSH»3CSH»3CSH»JCSH»>tSH«>CSH»3 
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CSH*3CSH»>" 

7S5 PRINT"CSHS>OME DAYS AGO WHILE LOOKIN 
G FOR A " 

730 PRINT"FORTUNE IN THE NEW WORLD, YOU M 

ET A " 

735 PR INT "CRITICALLY ILL OLD MAN TO WHOM 

YOU GAUE" 
740 PR I NT "HELP IN HIS LAST HOURS. " 
745 PRINT"CSHO>UT OF GRATITUDE HE TOLD Y 
OU ABOUT" 

750 PR I NT "HIS GOLDMINE AND THE REST OF H 

IS " 

755 PRINT"WEALTH HIDDEN THERE." 

760 PRINT"CSHn>ANY DANGERS FACED YOU ON 

THE WAY THERE,"; 

7G5 PR I NT "SOON YOU WILL HAUE REACHED YOU 

R GOAL" 

770 PRINT"AND IT WILL BE SEEN WHETHER TH 

E OLD MAN" 

775 PRINT"WAS SPEAKING THE TRUTH OR HAD 

MADE IT" 

7B0 PR I NT "ALL UP." 

785 PRINT 

790 PRINT"CSH«>CSH*3CSH»5CSH*>CSH»JCSH»> 

CSH»>CSH»>CSH»><:SH»3<:SH«J{:SH»>CSH*5CSH»5 

csh«>csh*:>csh»:ksh»:ksh»:ksh*:ksh»:>csh»> 
csh*>csh»j<:sh*>{:sh»jcsh*3csh»>csh»3csh*j 

CSH*3CSH»3CSH*JCSH*3CSH»>CSH*>CSH«JCSH»J 

w 

799 : 

BOO REM READ PLAYING DAT 

A IN 

BIO FOR 1-1 TO AU 

815 READ UERBSCI3:UERB$CI3-LEFT$CUERB£CI 

3.WL3 

BBO NEXT I 

830 FOR OB-1 TO AO 

835 READ 0BSC0B3, RNSC0B3, 0BC0B3 : RNSCOB 

3 -LEFTS C RNS C OB 3 , WL 3 

840 NEXT OB 

845 FOR RA-1 TO AR 

850 READ RASCRA3 

855 FOR RI-1 TO 6 

BBO READ DUCRA.RI3 

865 NEXT RI 

B70 NEXT RA 

B75 : 

BBO PR I NT "C DN3 DO YOU WANT ADUIC 

E FOR" 



IBB 



ABACUS SaftuiarB ADUENTURE GAMEWR ITER'S HANDBOOK 



BB5 INPUT" WHAT TO DO NEXT *';EI$ 
BBO IF EI$-"Y" THEN SOSUB 300 
BS5 GOTO 1000 
BS9 : 

900 REM 3, TITLE: INSTRUCTIONS 

910 PRINT"CCLR3";CHR$C143; 

920 PRINT" -64 - CSHA3DUENTURE CSHS3YST 

EM, CSHU3ERSI0N 1.0" 

930 PRINT" CC3 19B4 BY CSHW3ALK0 

WIAK" 

940 PRINT" 



950 PR I NT " C SHI J MAG I NE A ROBOT WHOM YOU C 
AN CONTROL" 

951 PRINT "WITH A LOT OF COMMANDS. CSHI3 
AM THAT ROBOT" 

952 PR I NT "AND ON YOUR BEHALF 5HALL EXPOS 
E MYSELF" 

953 PR I NT "TO THE DANGERS OF THE BOLDEST 
OF " 

954 PR I NT "ADUENTURES . " 

955 PRINT"CSHT30 ENABLE YOU TO MAKE ME A 
CT SENSIBLY," 

95G PR I NT "i SHI 3 SHALL ACCURATELY DESCRIB 

E THE" 

957 PR I NT "SITUATION IN WHICH I HAPPEN TO 

FIND " 
95B PR I NT "MYSELF AT ANY GIUEN TIME. CSHU) 
3 HEN YOU" 

959 PR I NT "TELL ME IN TWO WDRDS SUCH AS, 

» 

960 PRINT"*SHE3CSHX3CSHA3CSHM>CSHI>CSHN> 
CSHE3 CSHD3CSH03CSH03CSHR3, WHAT CSHI3 S 
HOULD DO." 

961 PR I NT "APART FROM THAT I UNDERSTAND T 
HE WORDS" 

962 PRINT" CSHI3CSHN3CSHU3ENTORY 
CSHS3CSHA3CSHU3CSHE3 CSHLJCSH03CSHA3CS 

HD3 " 

963 PRINT" CSHU3CSHQ3CSHC3ABULAR 
Y CSHH3CSHE3CSHL3CSHP3 CSHE3CSHN3CSHD3 

» 

964 PRINT" CSHS3CSHC3CSH03RE AND 
CSHI3CSHN3CSHS3TRUCTIONS " 

975 PRINT" 



9B0 PRINT"C DN3C DN3"SPCC113"CCSHP>RESS 
A KEY3"; 

9B5 GET EIS: IF EIS-"" THEN 9B5 
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3S0 PRINT"CCLR}":PRINTCHR$C142:): RETURN 
935 : 

999 REM BEGINNING ADUENTURE-DR 

IUER 

1000 PRINT"CCLR>":PRINTCHR$C14eD 
1010 LES=" 

» 

1020 DATA NORTH, SOUTH, WEST, EAST, UP, 

DOWN 

1030 FOR RI-1 TO B 

1010 READ RISCRI3 

1050 NEXT RI 

1070 PRINT"CCLRJ":POKE 53290,0: POKE 532B 

l,0:PRINT"CCn75" 

1090 ZU-ZU+1 : LUI-LUI+1 : REM BEBINNINS N 

EU1 MOUE 

1094 IF LUI-LM THEN 60SUB 3000 

1095 IF UE-UIM THEN GOTO 4900 

1090 P0KE211,0:P0KE214,0:SYS 59732 
1100 FOR ZE-1 TO 10 
1110 PRINT LES 
HBO NEXT ZE 

1130 P0KE211,0:P0KE214,0:SYS 59732 

1131 REM NO LIGH 

T 

1132 IF LI — 1 THEN 1140 

1133 PRINT" I DON'T QUITE KNOW WHERE I AM 

»» 

1134 PRINT" IT'S TOO DARK TO SEE ANYTHING 

1135 PRINT"C DN>I CAN'T SEE THE EXITS EI 
THER NOW . " : G0T01330 

1140 PRINT" I AMCSH >"; 

1150 PRINTRASCSP3 

1160 PRINT"I CAN SEE " ; : GE-0 

1170 FOR 1-1 TO AO 

1160 IF OBCIDOSPTHEN 1210 

1130 IF P0SC03+LENC0BSCI3 3+2O3 THEN PRI 

NT OBSCID;", " ; : GE— 1 : GOTO 1210 

1200 IF POSCOD+LENCOBSCI3]+B>-39 THEN PR 

INT : GOTO 1190 

1210 NEXT I: IF NOT GE THEN PRINT"NOTHING 

IN PARTICULAR" 
1220 PRINT"CLFTKLFT>." 
1230 PRINT LES 
1240 PRINT "CCM1>I CAN GO "; 
1250 FOR RI-1 TO 6 

1260 IF DUCSP.RI3-0 THEN GOTO 1310 
1270 IF P0SC03-14 THEN PRINT RISCRID;:GO 
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TO 1310 

1280 IFPDSC03+LENCRISCRI3 3O7 THENPRINT" 

, ";RI$CRI3i :SOTO 1310 

1SS0 IFPOSC03+LENCRI$CRI3 3>-37 THEN PRIN 

T",": PRINT RISCRI3; :S0T01310 

1300 IF POSC03<16 AND POSC03>2 THEN PRIN 

T", ";RI$CRI3; : SOTO 1310 

1310 NEXT RI 

1320 PRINT**." 

1330 PRINT"CUHT>CSH«>CSH»3CSH»3tSH*3CSH» 

3CSH»3CSH«3CSH*3CSH»3CSH»>CSH«3<:SH»3CSH* 

3CSH»3CSH*3CSH*3CSH»3CSH«3CSH*3tSH»3CSH» 

3CSH*3CSH»3CSH»>CSH»3CSH*3CSH*3CSH»>CSH* 

>CSH»3CSH*3CSH*3CSH»>CSH»3CSH«3CSH»3CSH* 

3CSH»3CSH»3" 

1340 IF UIE-Itl THEN SOTO 4800 

1350 IF SP-15 THEN MSSC03-"THE BEAR IS T 

HERE . *' : F0RI-1T01000 : NEXT : E0T04500 

1360 IF LUI<-0 THEN LI-0 

1370 IFEX-ZU AND SP-20THENt1S$C03-"OUCH! - 

NOW IT'S SCRATCHED ME . " : B0T04500 

13B0 IF SP>1B AND 0BC233O-1 THEN LI-0 

1390 POKE Ell, 0: POKE E14,£4:SYS 5873E:PR 

INT"CUIHT>"; :INPUT"UMAT SHALL I DO'*;EI$:P 

RINT"CCt1B3"; 

1395 RL-LII-LlihlF CRL>0ANDRL<153THEN PRIN 

T"IN";L , 1-LU;"nOUES YOU WILL BE IN DARKNE 

SS" 

1400 IF LENCEI$3>E THEN 1500 

1410 IFEIS-"N"ANDDUCSP,13<>0THENSP-DUCSP 

,13: PRINT"0 .K . " : B0T010B0 

14E0 IFEIS-"S"AND0UCSP,23<>0THENSP-DUCSP 

, S3 : PRINT*'0 .K . " : S0T010B0 

1430 IFEI$-"UI"ANDDUCSP,33<>OTHENSP-DUCSP 

, 33 : PRINT"D . K . " : B0T010B0 

1440 IFEIS-"E"ANDDUCSP,43<>OTHENSP-DUCSP 

,43:PRINT"O.K.":BOT010BO 

1450 IFEIS-"U"ANDDUCSP,53<>OTHENSP-DUCSP 

I , 53 : PRINT "0 . K . " : S0T010B0 

1460 IFEI$-"D"ANDDUCSP,63<>OTHENSP-DUCSP 

,63: PRINT "O.K.":BOT010BO 

1470 PR I NT "THAT DOESN'T LEAD ANYWHERE !" 

:60T0 1080 

1430 IF LENCEIS3>6 THEN 60T0 2000 

1498 : 

1499 REM START INVENTORY — 



1500 IF LEFTSCEIS,33<>"INU" THEN GOTO 15 
60 
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1510 PR I NT "I AM CARRY I NB THE FOLLOWING: " 
15B0 FOR 1-1 TO AO 

1530 IF 0BCI3— 1 THEN PRINT OBSCID 
1510 NEXT I 

1550 GOTO 10B0 

1551 REM END INUENTORY 



1553 REM 

SCORE LIST170 
15B0 IF LEFT$CEI$,33O"SC0" THEN GOTO IB 
00 

15B1 PRINT"OUT OF" ;WM; "POINTS YOU HAUE.I 
N";ZU;"I10UES," 

15BB PRINT "GAINED";WE; "POINTS! WHICH CO 
RRESPONDS TO" 

1563 PRINT"A SCORE OF"; WE/ZU; "POINTS . " 
1555 BOTO 10B0 

1593 REM SAU 

E SAME 

1600 IF LEFT$CEIS,43<>"SAUE" THEN BOTO 1 

700 

1B05 PRINT"CCLR3"SPCC103; :INPUT"C DN3C D 

N J ENTER NAME"; EI $ 

1610 IF LENCEII3>16 THEN 1605 

1615 PRINT"C DNJC DN3SAUING ";EI$ 

1BH0 OPEN B.B.E, "(30: "+EIS+" , S, W" 

1655 PRINT#B,SP 

16B7 PRINT#S,WE:PRINT#2,L1:PRINT#S,LM:PR 

INT#S,LW 

162B PRINT#S, ZU 

1630 FOR 1=1 TO AO 

1631 PRINT#B,OBCID 
163B NEXT I 

1633 PRINT"." 

1635 FOR RA-1 TO AR 

1636 FOR RI-1 TO 6 

1637 PRINT#E, DUCRA.RI3 
163B NEXT RI 

1639 NEXT RA 

1640 PRINT"."; 

1645 FOR 1-1 TO AF 

1646 PRINT#E,FLCI3 

1647 NEXT I 

1648 PRINT"."; 
1650 CLOSE E 
1660 60SUB 1660 

1670 PRINT"<:CLR>":GOTO 10B0 

167B : 

1573 REM DISK ERROR 
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1680 OPENl.B.lS 

1BB1 INPUT#1,A,B$,C,D 

16B2 IFAOOTHENPRINTiPRINT-t DN>C DNJtRU 

SJtREDJERROR: " : PRINTBS: FDRI-1T0 5000:NE 

XT:CL0SE2 

1683 CL0SE1 

1684 RETURN : REM END 

1B9B 

1698 REM LOAD GAM 

E 

1700 IF LEFTSCEI$,43O"L0AD" THEN GOTO 1 

800 

1705 PRINT"CCLR>"SFCC10D"L0AD GAME":INPU 

T"< DNX DNJUHAT IS THE GAME'S NAME";EIS 

1710 IF LENCEIS3>16 THEN 1805 

1715 PRINT"C DN>C DNJLOADING "EIS" "; 

1720 OPEN 2,B,2,EIS+",S ) R" 

1725 INPUT#2,SP 

1726 PRINT"."; 

1727 INPUT#2, UIE:INPUT#2,L1:INPUT#2,LM:I 
NPUT#2,LUI 

172B INPUT#2, ZU 

1730 FOR 1-1 TO AO 

1731 INPUT#2,0BCID 

1732 NEXT I 

1733 PRINT"."; 

1735 FOR RA-1 TO AR 

1736 FOR RI-1 TO 6 

1737 INPUT#2, DUCRA.RI3 
173B NEXT RI 

1733 NEXT RA 
1740 PRINT"."; 

1745 FOR 1-1 TO AF 

1746 INPUT#2,FLCID 

1747 NEXT I 

1748 PRINT"."; 
1750 CLOSE 2 
1760 GOSUB 16B0 

1770 PRINT"CCLR5":G0T0 1080 

1771 REM END OF LOAD G 

AME 

1778 : 
1798 : 

1788 REM UOCABULAR 

Y 

1800 IF LEFT$CEIS,33<>"UOC" THEN GOTO 19 

00 

1B05 PRINT"<:CLR>":PRINT"tYEL3I UNDERSTAN 

D THE FOLLOWING UERBS:C DN>C DN>" 
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1B06 RESTORE 

1810 FOR 1-1 TO AU 

1B20 READ UO$:PRINT UO$ 

1B30 NEXT I 

1B40 GOSUB 1B30 

1B45 PR I NT "CCLR}": PR I NT "AND HERE AR THE 

OBJECTS THAT I KNOW:C DN3" 

1B4S ZE-0 

1B50 FOR 1=1 TO AO 

1855 ZE-ZE+1 

I860 READ UD$,UO$,X:PRINTUO$ 

1BB5 IF ZE-20 THEN GOSUB 1B30 

1BGB IF ZE-20 THEN ZE-1 : PRINT"CCLRJ" 

1B70 NEXT I 

1BBO GDSUB 1B80:PRINT"<:CLR>":G0T0 10BO 

1BBO PRINTSPCC243"C ON5PRESS SPACE BAR"; 

1835 GETEI$:IFEI$-""THEN 1B35 

189B PRINT"CCLR}": RETURN 

1900 IF LEFTSCEI$,3JO"INS" THEN GOTO IS 

50 

1910 GOSUB 900 

1920 GOTO 1080 

1S50 IF LEFT$CEIS,33<>"END" THEN GOTO 13 

60 

1955 PRINT"CCLRJTHE AUTHOR WISHES YOU BE 

TTER LUCK TltlE.C DNJC DNJC DN>C DNX DN> 

" : END 

1959 REM HELPR 

EADY 

1960 IF LEFTSCEIS,43<>"HELP" THEN GOTO 2 
000 

1970 IFSP-4 AND OBC 103-OTHEN PRINT "I NE 
ARLY FELL DOWN A HOLE . " : G0T010B0 

1971 IF SP-4 AND 0BC113-SP AND NOTFLC23 
THEN PRINTMSSC63: GOTO 1080 

1975 PR I NT "YOU SHOULD LOOK BEFORE YOU LE 
AP":GOTO 1080 

1979 REM END HELP 

1990 : 

1999 REM ANALYSE THE INPU 

T 

2000 LN-LENCEIS3 
2010 FOR EL-1 TO LN 
2020 TESTS-IHD$CEI$,EL,13 
2030 IF TESTSO" "THEN NEXT EL 
2040 EU$=LEFTSCEI$,UIL3 

2050 RL-LN-EL 

2060 IF RL<0 THEN 2090 

2070 E0$-RIGHT$CEI$,RL3 
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20B0 EOS-LEFTS C EOS, U)L 3 

B030 FOR UN-1 TO AU 

2100 IF EUS-UERBSCUN3 THEN 2130 

5110 NEXT UN 

S120 PR I NT "I DON'T UNDERSTAND THAT UERB! 

":GOTO 10B0 

2130 FOR N-l TO AO 

2140 IF EOS-RNSCND THEN 2200 

2150 NEXT N 

2160 PRINT"I DON'T KNOW THAT OBJECT! ":60 

TO 1080 

2169 : 

2170 REN 

2180 REM EXAMINE , TAKE .DROP, OPEN , 
USE .DESTROY , LIGHT , FILL 

2200 ON UN GOTO 5000,2210,7000,8000,9000 
, 10000, 11000, 12000, 13000, 14000, 15000 

2201 : 
2210 AN-0 

2220 FOR 1-1 TO AO 

2230 IF OBCn— 1 THEN AN-AN+1 

2240 IF AN- IM THEN PR I NT "I CAN'T CARRY A 

NYMORE ! " : G0T01080 

2250 NEXT I 

2260 GOTO 6000 

2270 REM END OF ROOH TEST 

2998 REM LIGHT SWITCH 

3000 IF LI— 1 THEN LI-0 
3010 IF LI-0 THEN LI— 1 
3020 LU-0 
3030 RETURN 

3040 REH END OF LIGHT SECT 10 

N 
449B : 

4499 REM END OF GAM 

E 

4500 PRINT"CCLR>":REn PLAYER DEA 

D 

4600 PRINT "THIS IS THE END! ": PRINT : PRIN 

TMSSC03 

4610 PRINT"C DN3C DN5C DN>I Ad DEAD !": 

PRINT 

4620 INPUT"SHALL I TRY AGAIN ";EI$ 

4630 IF LEFT$CEI$,13-"Y"THEN RUN 

4640 PRINT"CCLR>":END 

4641 : 
4738 : 

4800 PRINT"CCLR:>":REM PLAYER WINS 
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4B05 EW-WE/ZU 

4B10 PR I NT "WELL DONE ! " 

4815 PRINT"YOU HAUE SOLUED THE ADUENTURE 

W 

4820 PRINT 

4B25 PRINT " IN" ;ZU;"MOUES YOU HAUE SCORED 

» 

4B30 PRINT EW;" POINTS." 

4B3S PRINT"YOU HAUE GOT A "; 

4840 IF EUK.5 THEN MSSC03-"R0TTEN" 

4845 IF EW>.5 THEN MS$C03-"AUERASE" 

4850 IF EUI>1.0 THEN MS$C03-"B00D" 

4855 IF EUI>1.5 THEN MSSC03«"UERY GOOD" 

4BB0 PRINTMSSC03;" SCORE." 

4865 PRINT 

4BSS END 

499B : 

4999 REM — EXECUTE PLAYERS 

MOUE 

5000 IF 0BCN3OSP AND 0BCN3O-1 THEN GOT 

5900 : REM EXAMINE 

5005 IF N-l THEN PRINTMSSC13 : G0T01080 

5003 IF N-3 THEN PRINTMSSC13 : G0T010BO 

5004 IF N-4 THEN PRINT" IN THE CORNER IS 
A SHELF. ":0BCB3-SP:G0T010B0 

5005 IF N-5 AND NOTFLC33 THEN PRINT "THE 
JAR IS FULL OF HONEY .": G0T010B0 

500B IF N-S THEN PRINTMSSC13 : G0T010B0 
5007 IF N-7 AND0BC93-0THENPRINT"THE BOX 
HAS EXPLOSIVES IN IT . ":G0T010B0 
500B IFN-B AND OBC53-OTHEN PRINT"THERE I 
S A JAR ON THE SHELF. ": OBC53-SP:BOT010BO 

5009 IF N-B AND 0BC53O0 THEN PRINT MSSC 
1 3 : B0T010B0 

5010 IF N-10THEN PRINT"THERE IS AN IRON 
CHEST IN THE HOLE. ": 0BC113-SP: BDT01080 

5011 IFN-11ANDN0TFLC13 THEN PRINT"IT IS 
LDCKED WITH AN IRON CHAIN .": B0T01080 
5015 IFN-11ANDFLC13ANDNOTFLCS3THENPRINT" 

1 CAN'T SEE ANYTHING FROM OUTSIDE .": GOTO 
10B0 

5013 IF N-11ANDFLC13ANDFLCS3THENPRINT"IT 
'S FULL OF SILUER COINS. ": 0BC1B3-SP:B0T0 
1080 

5014 IF N-12 THEN PRINT"THAT'S JUST WHAT 
I'M LOOKING FOR! ":G0T010B0 

5015 IFN-13THENPRINT"I HAUE DISTURBED A 
BEAR . " : OBC 143 -SP : S0T010B0 

5017 IFN-15THENPRINT"IN THE BUSHES IS A 
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HOLE.":OBC103-SP:GOT010BO 

5018 IF N-16 THEN PRINT"THEY LOOK UERY S 

TRONG . " : G0T010B0 

5013 IF N-17 THEN PRINT" IT IS PURE SOLD 

I " : G0T01080 

5020 IF N-1S AND 0BC213-0 THEN PRINTMSSC 
73:PRINTMS$C83:OBC213-SP:BOT01080 

5021 IF N-23 THEN PRINT" IT IS AN OLD OIL 
LAMP . " : GOTO 1080 

5022 IF N-24 THEN PR I NT "THERE IS A HOOK 
IN THE WALL.":0BC253=SP:60T010B0 

5023 IF N-25 THEN PRINT"I CAN'T IT'S STU 
CK . " : GOTO 1080 

5024 IF N-26THENMS$C03-"IT IS UERY DEEP 
- AND I WAS TOO NEAR THE EDGE . " : 60T04500 

5025 IF N-27 THEN PR I NT "THAT CARPENTER W 
AS A REAL EXPERT" :G0T010B0 

5026 IF N-2B AND 0BCN3-0THEN PR I NT "I CAN 
SEE TWO SACKS. ":OBC233-SP: S0T010B0 

5027 IF N-23 THEN PR I NT "THEY ARE FULL OF 
BOLD DUST . " : B0T010B0 

502B IF N-31 THEN PRINT"IT'S OILY AND ST 
ICKS TO YOUR HANDS .": GOT01080 
5023 IFN-32THENPRINT"IT STINKS !" 

5030 IFN-32AND0BC343-0THENPRINT"THERE AR 
E GOLD COINS IN THE POCKET .": OB C 343 -SP.-S 
0T01080 

5031 IF N-35 THEN PRINT"THERE AREN'T ANY 
COBWEBS AT ALL . ":OBCN3-0:OBC423=SP 

5032 IF N-35 THEN PRINT"IT IS A FUSE.":B 
0T010B0 

5033 IF N-3B THEN PRINT "IT REALLY IS PUR 
E SOLD . " : B0T01080 

5034 IF N-37 THEN PRINT" IT SAYS ON IT":P 
RINTMSSCS3 : G0T010B0 

5035 IF N-42 THEN PRINT" IT LEADS UP TO T 
HE CEILING. ":BDTaiOBO 

5036 IF N-43 THEN PRINT" IT IS AN ORDINAR 
Y HATCH." 

5037 IFN-32ANDFLC43AND0BC333O-2THENPRIN 
T"IT IS ON SOME SILUER . " : 0BC333-SP :BOTO 
10B0 

5B39 PRINTMSSC 13 : B0T01080 

5300 REM OBJECT NOT HERE 

5301 IF N-l AND SP=2 THEN PRINTMSSC 13 : BO 
T01080 

5302 IFN-6 AND OBC53— 1 THEN PRINT"IT IS 
SWEET AND 600D . ": S0T010B0 

5303 IF N-B AND 0BC53O-1 THEN PRINT"! H 
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AUEN'T ANY HONEY !":G0T01080 

5304 IFN-SAND0BC7D=SP0R OBC73 — 1THENPRIN 

T"IT LOOKS LIKE IT WILL BLOW UP!"-G0T010 

BO 

5905 IF M-3 THEN PRINT''THE EXPLOSIUE LOO 
KS DANGEROUS ! " : GOTO 1080 

5310 IFN-1ANDSP-5AND0BC143-5THENPRINT"I 
SEEtl TO WHET HIS APPETITE l":G0T010B0 

5311 IF N-20 AND SP-22 THENPRINTMSSC33 :B 
0T010B0 

5312 IF N-44 AND SP-23 THEN nS$C03-»I Ah 

IN THE KINGDOM OF THE DEAD . " : G0T04500 

5330 PRINT "THERE IS NOTHING LIKE THAT H 
ERE . " : GOTO 1080 

6000 IF 0BCN3OSP AND 0BCN3O-1 THEN GOT 
6300 

6001 IF N-l THEN PRINT J1SS C 2 3 : GOTO 1080 

6002 IF N-3 THEN PRINT I1S$C23:G0T0 10B0 

6003 IF N-4 THEN PRINT MSJC33:G0T0 10B0 

6004 IF N-8 THEN PRINT MSSC23:G0T0 10B0 

6005 IF N-11THENPRINT f1S$C23:G0T0 10B0 

6006 IF N-10THEN PRINT nSSC33:GQT0 10B0 

6007 IF N-13THEN PRINT f1SS[33:G0T0 10B0 
600B IF N-1STHEN PRINT MSSC23:G0T0 10B0 

6010 IF N-5 THEN OBC53 — 1: PRINT"0.K . "• GO 
T010B0 

6011 IF N-6 THEN OBC53 — 1 : PRINT"O.K . " -GO 
T010B0 

6012 IF N=7 THEN OBC73 — 1: PRINT"0.K . " • GO 
T01080 
6014 IF N-12 AND OBCN3-4 THEN PRINT"0, 



:OBC123 — 2:RN$C123- 



: UIE-UIE+10: GOTO 108 



6015 IF N-l AND SP-5 THEN I1S$C03="THE BE 
AR HAS KILLED ME . " : G0T04500 

6016 IF N-16 THEN PRINT**0 .K . - : 0BC183— 1- 
G0T01080 

6017 IFN-17AND0BCN3=5ANDFLt33THENPRINT"0 
.K.":OBC173— 2:RN$CN3=" " : WE-UIE+10:G0T01 

OBu 

6018 IF N-17 AND NOT FLC33 THEN f1SSC03 — 
THE BEAR IS ATTACKING ME . "' : G0T04500 
6013 IF N-12 AND DBCN3 — 1 THEN PRINT"N0U) 

I'UE GOT THE SILUER !»:G0T010B0 

6020 IF N-17 AND 0BCN3— 1 THEN PRINT"NOUI 
I'UE GOT THE GOLD !":G0T010B0 

6021 IF N-13 THEN PRINTMSSC23 : G0T01080 

6022 IF N-21 AND FLC43 THEN PRINT"O.K "• 
OBCND— 1 : G0T010B0 
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B0S3 IF N-22 THEN PRINT"O.K . " : OBCN3 — 1 : G 

OTOIOBO 

6024 IF N=24 THEN PRINT**0 .K . " : OBCN3 — 1:G 

OTOIOBO 

B0S5 IF N-25 THEN PRINT "IT'S TOO FAR IN 

THE ROCK.": GOTOIOBO 

BOSB IF N-S7 THEN PRINTI1SSC33 : GOTOIOBO 

B027 IF N-2B THEN PR I NT "AND WHAT SHALL I 

DO WITH IT?": GOTOIOBO 
B030 IFN-31AND0BC53<>-1THENPRINT"WITH UIH 
AT ?": GOTOIOBO 

B031 IFN-31ANDOBC53— 1THENPRINT"0.K. - T 
HE JAR IS FULL. ":FLCB 3—1: GOTOIOBO 

6032 IF N-32THENPRINT"0.K. - OH, WHAT IS 
THAT ?":FLC53— 1: GOTOIOBO 

6033 IF N-33 AND 0BCN3-SP THEN PRINT"O.K 
. " : 0BCN3— 2: RNSCN3-" " : WE-WE+10: GOTOIOBO 

6034 IF N-34 AND 0BCN3-SP THEN PRINT"O.K 
. " : 0BCN3— 2: WE-WE+10: RNJCN3-" " : GOTOIOBO 

6035 IFN-35THENPRINT"THERE AREN'T ANY CO 
BWEBS AT ALL, IT WAS" 

6036 IFN-35THENPRINT"A FUSE . " :0BCN3-0:0B 
C453— 1: GOTOIOBO 

6037 IF N-37 THEN 0BCN3 — 1 :PRINT"O.K . " : G 
OTOIOBO 

603B IF N-41 THEN 0BCN3— 1 : PRINT"0 .K . " :G 

OTOIOBO 

6033 IF N-42 THEN 0BCN3 — 1 : PRINT"O.K . ": G 

OTOIOBO 

6041 IF N-21 AND NOT FLC43 THEN PRINT" IT 

IS FASTENED TO THE CAR. ": GOTOIOBO 
B042 IF N-23 THEN PRINT"O.K . " :0BCN3— 1 : G 
OTOIOBO 

6043 IF N-23 AND 0BCN3-SP THEN PRINT"O.K 
. " : 0BCN3— 2: RNSCN3-" " : WE-WE+10: G0T01080 

6044 IF N-3B AND 0BCN3-SP THEN PRINT"O.K 
. " : 0BCN3— 2 : RNSCN3-" " : WE-WE+10 : GOTOIOBO 
6300 IF N-3THENt1S$C03-"THE EXPLOSIUE WHE 
N I TOUCHED IT.":G0T04500 

6310 IF N-20 AND SP-22 THENPRINTMSSC33 : G 

OTOIOBO 

633B PRINT "I DON'T UNDERSTAND WHAT YOU 

MEAN ! " : GOTOIOBO 

7000 IF N-16 AND 0BC1B3 — 1 THEN PRINT"0. 

K . " : OBC 1B3-SP: GOTOIOBO 

7005 IF 0BCN3O-1 THEN PRINT"BUT I DON'T 

HAUE ANYTHING LIKE THAT .": GOTOIOBO 
7010 IFN-6ANDSP-5THEN0BC63-0:FLC33 — 1:PR 
INTMSSC43 : PRINTnS$C53 : 0BC143-15: 0BC53-14 



133 



ABACUS Software ADVENTURE BAHEWR ITER'S HANDBOOK 



: B0T01080 

7020 IFN-SANDSP-5 THENDBC 53-14: FLC33 — 1 • 

PRINTMS$C43:FRINTMSSC53:OBC143-15:GOT010 
BO 

7030 IF N-17 THEN 0BCN3-SP: UIE-UIE-10: PRIN 

T"0.K.":B0T010B0 

7300 0BCN3-SP: PR I NT "0 . K . " : B0T010B0 

BOOO IF OBCNDOSP AND 0BCN3O-1 THENPRIN 

T"THER"S NOTHING LIKE THAT HERE. »: B0T010 

BO 

8005 IF N-4 AND SP-3 THEN PRINT"THE HUT 
WAS OPEN . " : B0T010B0 

8010 IF N-5 THEN PRINT"O.K . ": B0T010B0 
B020 IF N-ll AND NOT FLC13 THEN PR I NT "A 
CHAIN STOPS YOU . " : B0T010B0 
B0E5 IF N-ll AND FLC13 THEN PRINT*'O.K. - 
THE LID FOLDS BACK . '*: FLC23 — 1 : BDT010B0 
B030 IF N-23 THEN PRINT"O.K . " :G0T010B0 
B035 IF N-23 THEN PRINT"0 .K . ": B0T01080 
B040 IF N-32 THEN PR I NT" I 'II SORRY i"-PRI 
NT"I'M NOT FRANKENSTEIN. ":S0T010B0 
8045 IF N-36 THEN PRINT"U)HAT ?":B0T010B0 
8333 PR I NT "I DON'T UNDERSTAND WHAT YOU (1 
EAN . " : B0T010B0 

3000 IF OBCNDOSP AND 0BCN3O-1 THEN EOT 
3300 REM EXAMINE 

3020 IF N-13 THEN PRINT"HOUI AND WHY ?"-G 
0T010B0 

3030 IF N-21 THEN PRINT"HOUI AND WHY '"•S 

0T01080 

3300 IF N-1B AND 0BC1B3 — 1AND SP-4THEN P 

RINT»THE CHAIN IS BREAKINS . ": FLC13 — 1 -GO 

T01080 

B333 PR I NT ''I DON'T UNDERSTAND WHAT YOU M 

EAN . " : B0T01080 

10000 IFN-16ANDSP-4 AND 0BC183THENPRINT" 

THE CHAIN IS BREAKING. *': FLC13— 1 .-BOTOIOB 



10010 IF N-1S AND SP-4 AND 0BC1S3O-1 TH 

EN PRINT"U)HAT WITH ?": FL— 1 : G0T010B0 

10020 IF N-36 AND 0BC223=-1 THEN PRINT"0 

. K. ": DUC 22,1 3-23 : B0T010B0 

10030 IF N-21 ANDC0BCN3-SP OR 0BCN3— 13T 

HENPRINT"0 . K. " : FLC43 — 1 : G0T010B0 

10040 IF N-27 AND 0BC223— 1 THEN PRINT"0 

. K.": DUC 10, 23-12: G0T01080 

10050 IF N-27 AND 0BC223O-1 THEN PRINT" 

WHAT WITH ?":G0T010B0 

10333 PR I NT "I DON'T UNDERSTAND WHAT YOU 
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MEAN . " : GOTO 1080 

11000 IF 0BC433O-1 THEN PRINT"I HAUE NO 

THING TO LIGHT IT WITH . ": GOTO 10B0 

11010 IF N-B AND LZ<0 THEN PRINT"THERE I 

S NO OIL IN THE LAMP !:G0T010B0 

11020 IFN-42ANDC0BC433 — 10R LIGHT3THENPR 
INT'*SSSSSSSSSS" : FLC73 — 1 : EX-ZU+3 : 0BCN3-0 

11021 IF N-42ANDC0BC433 — 1 OR LI3THENDUC 
30, 23-31 : DUC31 , 1 3-30: G0T010B0 

11030 IF N-23AND 0BC233 — 1 THENPRINT"0 .K 
. - THE LAMP IS LIGHT.":LM-L1:LW-1:G0T01 
OBO 
11040 IFN-43 THEN PRINT"O.K. - THE MATCH 

IS GLOWIN6.":G0T010B0 
1133B PRINT"I DON'T UNDERSTAND WHAT YOU 
MEAN . " : G0T010B0 

12000 REM ACTION: 

FILL 

12010 IF N-23ANDCFLC63AND0BC233 — 13THENL 

M-50:FLC63-0:LW-0: PR I NT "O.K.": G0T010B0 

12020 IF N-5 AND SP-17 THEN FLCB3 — 1:PRI 

NT"THE JAR IS FULL . " : G0T01080 

12030 IF N-43 AND 0BC433— 1 THEN PRINT"T 

HE MATCH IS GLOWING": GOTO 1 OBO 

12SSB PRINT"I DON'T UNDERSTAND WHAT YOU 

MEAN . " : G0T01080 

13000 REM ACTION: E 

NTER 

13010 IF N-13 AND SP-5 THEN SP-12: PRINT 

"O.K.":GOT010BO 

13SSB PR I NT "I DON'T UNDERSTAND WHAT YOU 

MEAN . " : G0T010BO 

14000 IF N-23 AND 0BCN3 — 1 THEN Ll-LM-LW 

: PRINT M . K . " : G0T01080 

14S3B PR I NT "I DON'T UNDERSTAND WHAT YOU 

MEAN . " : G0T01080 

15000 IFN-21ANDSP-3THENPRINT-0 .K . " : 0BCN3 

-3:DUCS,63-1B:DUC1B,53-3:G0T010B0 

1533B PR I NT "I DON'T UNDERSTAND WHAT YOU 

MEAN . " : GOTO 1 OBO 

READY . 
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3 REM THE ENCHANTED CASTLE 

4 REM CC3 1SB4 BY J. WALKOUT AK 

B REM" 



10 PRINT"CCLR>":POKE 532B0,0:P0KE 535B1, 

: PR I NT " CUIHT J " : AR-26 : AO-45 : AU-B : SP-3 

20 PRINT" WELCOME TO THE ENCHANTED CAT 

LE. 

51 PRINT" UERSION 1.0 CCD 13B4 BY W 

ALKOWIAK" 

ss PRiNT"ccrio>ccno>ccnoj<:cno>{:cnojccno>c 
cnojccnojccnojccno3ccfio>ccrio>ccno3ccnojc 
cmo>ccmo5ccmo>ccmo:kcmo5<:cmo:kcmd:kcmo><: 
cnojccnojccnojccnojccno^ccriaxicnojcciiojc 

cmokcmo:kcmo:kcmo}<:cmo:kcmo:>ccmo:kcmo:k 
cno>" 

30 PRINT: PRINT: PRINT" I All THY FAITHFUL 

SERUANT.":PRINT 

35 PR I NT "COMMAND ME IN THE FOLLOW I NB WAY 

:": PRINT 

40 PRINT"EXAMINE TABLE, PUT BOTTLE" :PRIN 

T 

50 PR I NT "ETC. TO TELL ME WHAT TO DO.": PR 
INT 

bo print" if you want to know what i am c 

arryinb":print 

b5 pr i nt "use the cdmmand inventory." 

eb print"ccm03ccmo>ccmoj{:cm03ccmo>ccm03c 

cmo>ccmo><:cmojccmo>ccmo>ccmo>{:cmo>ccmo>c 

cmojccmoj<:cmo>ccmojccmoj<:cmojccmo>ccmojc 

cmojccmokcmokcmokcmoikcmokcmokcmok 

cmojccm03ccmojccmoccmojccm03ccmojccmdx: 

CMOJ" 

70 PRINT: PRINT 

BO PRINT" ARE YOU READY ?" 

B5 GETAS: IFAS-""THENB5 

SO DIM RASCARD, DUCAR.63, OBSCAOD, RNSCA 

OD, 0BCA0D.MSSC113 

101 DATA»IN THE CASTLE LIBRARY. ", 0, 3, 0,2 
,0,0 

102 DATA-IN THE STUDY .», 0, 0, 1 ,0,0, 

103 DATA"IN THE KITCHEN. ", 1 , B, 0, 4, 0, 

104 DATA"IN THE CASTLE COURTYARD .", , B , 3 
.6,0,0 

105 DATA"IN ONE OF THE WATCHTOWERS . » 
,0,0,0,11 ' ' 
10B DATA "IN THE CASTLE COURTYARD .", 1 1 , , 
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4,0,0,0 

107 DATA"IN FRONT OF THE DRAWBRIDGE. ",0, 

0,6, 0,0,0 

10B DATA"IN THE BREAT HALL . ",4,B, 3, 3, 0, 

103 DATA"IN A PRIUATE CHAMBER. " , 3, 3, B,0, 

0,0 

110 DATA"ON THE DRAWBRIDGE ." ,0,0,7, 12,0, 


111 DATA" IN THE CASTLE COURTYARD. ", 0, B, 
,0,5,0 

US DATA"ON A FOREST PATH .", IB, IB, 10, 13, 
0,0 

113 DATA" IN THE ENCHANTED FOREST ." ,21 , 17 
,12,15,0,0 

114 DATA"IN A DARK CAUE . ",0, IB, 14,0, 0,0 

115 DATA"IN THE FOREST . " , 15, 15, 15, 16, 0, 

116 DATA" IN THE ENCHANTED FOREST .", 12,21 
,15,17,0,0 

117 DATA"IN THE ENCHANTED FOREST .", 13,22 
,16,18,0,0 

118 DATA "AT THE FOOT OF A MOUNTAIN RANGE 
.",14,0,17,13,0,0 

113 DATA"IN A DARK CAUE . ",25,0, IB, 13, 0,0 

120 DATA"IN THE CASTLE ." ,20, 20, 20, 21 ,0,0 

121 DATA" IN THE FOREST .", 16,21,20,21 , 0, 

122 DATA"IN THE BOB .", 17,0, 0,23, 0, 

123 DATA"IN THE BOB. ", 0,0, 22,24,0,0 

124 DATA"BY A STREAM ." ,23,24,0, 23, 0, 

125 DATA"IN A DARK CAUE .", 25, 13,25, 14, 14 
,0 

126 DATA"IN A SNAKEPIT .", 0,0,0,0,22, 

401 DATA "COUNTLESS BOOKSHELUES" , "SHE" , 1 

402 DATA"A DESK" , "DES", 1 

403 DATA"MY TEACHER 'UIC CHIP ' . " , "UIC" , 2 

404 DATA"A COLANDER" , "COL", 3 

405 DATA"A BOTTLE" , "BOT" ,0 

406 DATA"THE CASTLE WELL" , "U)EL",4 

407 DATA "BOOK", " BOO ",0 

40B DATA "SLEEP I NB WATCHMEN" , "WAT" ,5 

403 DATA"THE DRAWBRIDGE WINDING GEAR","G 

EA" 5 

410 ' DATA "CASTLE RESIDENTS" , "RES" ,B 

411 DATA"MY GUESTS" , GUE" ,8 

412 DATA"PIECE OF PAPER", "PAP" ,0 

413 DATA"A KITCHEN TABLE" , "TAB" , 3 

414 DATA"A BUTCHERS KNIFE", "KNI ", 

415 DATA"A CROSSBOW" , "CRO" , 5 
41B DATA"A KEY","KEY",0 

417 DATA"A HEAUY IRON GATE" , "GAT" , 6 
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41B DATA"A DRAWBRIDGE, " , "DRA", 7 

413 DATA"NOTHING IN PARTICULAR", "NOT" 3 

420 DATA-NOTHINB IN PARTICULAR", "NOT" , 11 

421 DATA"TREES" , "TRE" , 12 

422 DATA "TREES" , "TRE" , 13 

4S3 DATA"A LOT OF CABINETS", "CAB" , 14 

4E4 DATA "NOTHING IN PARTICULAR" , "NOT" ,55 

4B5 DATA"TREES" , "TRE" , 15 

4EB DATA "TREES" , "TRE" , IB 

427 DATA"TREES" , "TRE" , 17 

42B DATA"A LARBE MAGPIE", "I1AG", 17 

423 DATA"AN ENTRANCE TO A CAUE" , "CAU" , IB 

430 DATA"BLEAMINB BOLD nETAL" , "GOL" , 13 

431 DATA"OLD ARMOR" , "ARM", 

432 DATA"NOTHING IN PARTICULAR" , "NOT" ,21 

433 DATA " BOG " , " BOG " , 

434 DATA"nUD" , "nUD" , 23 

435 DATA"SNAKES EGGS", "EGG" , 2B 

436 DATA "TREACHEROUS GROUND", "GRO" , 23 

437 DATA"SPRING OF BUBBLING WATER" , "SPR" 
,24 

43B DATA "A HO AT" ,MOA" , 10 

433 DATA"A DARK CORNER" , "COR", 20 

440 DATA"COBWEBS", "COB",0 

441 DATA"A BOTTLE WITH BLUE WATER IN IT" 
,"WAT",0 

442 DATA"NOTHINB IN PARTICULAR" , "NOT" , 13 

443 DATA"A SNAKEPIT", "PIT", 22 

444 DATA "SNAKES", "SNA ",2B 

445 DATA "A STONE ALTER" , "ALT", 25 

BOO DATA EXA,TAK,REA,OPE,DES,USE,FIL,PUT 

300 MSSC03="I DON'T UNDERSTAND WHAT YOU 
MEAN . " 

301 MS$C13="I CAN'T SEE ANYTHINB SPECIAL 

302 ns$t2a-»i'n not stronb enoubh." 

303 MSSC33-"THEY SEEM TO BE FAST ASLEEP. 

11 

304 HSSC4D="THAT WOULD BE SILLY." 

305 MSIC5D="I CAN SEE SOME SHAKY WRITING 

SOB MSSC6D="THE MABPIE'S STOLEN SOMETHIN 
B ! " 

307 MSSC7D-"THERE'S SOME OLD ARMOR . " 
SOB MSSCB3="HE*S GOT A PIECE OF PAPER IN 

HIS HAND." 
SOS MSSC33-"HE'S GOT A KEY IN HIS HAND." 
910 HSSC 10] -"THERE'S AN INSCRIPTION- IT 
SAYS: " 
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Sll I1SSC113-"ACCEPT OUR SACRIFICE AND BE 

GRATEFUL TO US." 
350 FOR RA-1 TO AR: READRASCRA3 
352 FOR RI-1 TO B: READDUCRA, RI 3 
354 NEXT RI:NEXT RA 

361 FOR OB-1 TO AO:READ 0BSC0B3, RNSC0B3 
, 0BC0B3:NEXT OB 

370 FOR 1-1 TO AU:READ UE$CI3:NEXT I 
1010 LE$-" 

1020 DATA NORTH, SOUTH, UIEST, EAST, UP, 

DOWN 

1030 FOR RI-1 TO 6:READ RI$CRI3:NEXT RI 

1040 C0-RNDC13 

1070 PRINT"CCLR3" 

1080 PRINT"CCI143" : P0KE211 , 0: P0KE214, 0: SY 

S5B732 

1030 P0KE211,0:P0KE214,0:SYS 5B732 

1100 FOR 2-1 TO 10:PRINTLE$:NEXT Z 

1130 P0KE211,0:P0KE214,0:SYS 58732 

1140 PRINT" I AM "; 

1150 PRINTRASCSP3 

HBO PRINT"! CAN SEE "; 

1170 FOR 1=1 TO AO 

1180 IF 0BCI3OSP THEN 1200 

11B5 IF POSC03+LENCOB$CI3 3+2<-33 THEN PR 

INT 0B$CI3;", " j : BOTO 1200 

1130 IF POSC03+LENCOBSCI3 3+2>33 THEN PRI 

NT 

1136 BOTO 1185 

1200 NEXT I 

1205 PRINT"CLFT3CLFT>." 

1210 PRINT 

1215 PRINT 

1220 PR I NT "I CAN 60 "j 

1230 FOR RI-1 TO 6 

1240 IF DUCSP.RI3-0 THEN GOTO 1250 

1245 IFPOSC03-14THENPRINTRISCRI 3 ; : G0T012 
50 

1246 IFP0SC03+LENCRISCRI3 3O7 THENPRINT" 
, ";RISCRI3; : G0T01250 

1247 IFPOSC03+LENCRI$CRI3 3>37THENPRINT:P 
RINTRISCRI 3 ; : 60T01250 

1243 IFPOSC03<16 AND POSC03>2 THENPRINT" 
, "jRI$CRI3; :60T01250 
1250 NEXT RI 
1260 PRINT"." 

1270 PRiNT"ccno><:cno3cciio>{:cno3{:cno3ccno 
3Ccno><:cno3ccria3<:cMO>ccMO>ccnojccno3CCMO 
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>ccMO>ccno>ccno3ccno3ccno>ccno3<:cnoj{:ciio 

3ccnojcoioj<:crio>ccnajccnojccno>cc(i03ccno 

>ccno>ccno>ccno>{cno>tcno>ccno>ccno><:cno 

jccmoj" 

1275 ifsp-b5theng0subb050 

12B0 PaKE211,0:P0KE214,24:SYS 5B732:PRIN 

T"CWHT3"; : INPUT "WHAT SHALL I DO";EI$:PRI 

NT"CCMB3"; 

12B5 IFSP-17THENG0SUB3040 

12B6 IFSP-23THENB0SUBS0B0 

12B7 IFSP-15THENS0SUB3100 

1230 I FE I S- "N " ANDDU C SP , 1 3 <> OTHENSP-DU C SP 

,13: PRINT"0 . K . " : B0T010B0 

1300 IFEIS-"S"AN0DUCSP,23<>2THENSP-DUCSF 

, 23 : PR I NT "0 .K . " : G0T010B0 

1310 IFEI$="W"ANDDUCSP,33O0THENSP-DUCSP 

, 33 : PRINT"0 .K . " : B0T010B0 

1320 IFEI$="E"ANDDUCSP,43<>OTHENSP=DUCSP 

, 43 : PRINT "0 . K .": B0T010B0 

1330 IFEI$="U"AND0UCSP,53<>0THENSP-DUCSP 

, 53 : PRINT"0 . K . '* : B0T01080 

1340 IFEI$="D"ANDDUCSP,63<>OTHENSP»DUCSP 

, 63 : PRINT"0 .K . " : B0T010B0 

1350 IF LENCEIS3<3 THEN PR I NT "THAT DOESN 

'T LEAD ANYWHERE !": BOTO 10B0 

13B0 IF LEFT$CEIS,33<>"INU"THENS0T01330 

1370 PR I NT "I'M CARRY I NB THE FOLLOW I NB:" 

13B0 F0RI-1T0A0: IFOBC I 3—1THENPRINT0BSC I 

3 

1330 NEXT I 

1400 B0T010B0 

1330 IFSP-15THENGDSUB3100 

2000 LN-LENCEIS3 

2010 FOR EL-1 TO LN:TE$-I1ID$CEI$, EL, 13 

2030 IF TES<>" "THEN NEXT EL 

2040 EU$-LEFTSCEI$,33:RL-LN-EL: IFRL<OTHE 

N2070 

20B5 E0$~RIEHTSCEIS,RL3 

2066 EOS-LEFTS CEOS, 33 

2070 FOR UN-1 TO AU 

20B0 IF EUS-UESCUN3 THEN 2110 

20S0 NEXT UN 

2100 PRINT"I DON'T UNDERSTAND THE UERB!" 

:B0T0 10B0 

2110 FOR N-l TO AO 

2120 IF E0S-RNSCN3 THEN 4000 

2130 NEXT N 

2140 PR I NT "I DON'T UNDERSTAND THE OBJECT 

! " : BOTO 10B0 
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4000 ON UN GOTO 5000,5500,5600,5700,5800 
,5900,5000,6100 

5000 IF 0BCN3OSP AND 0BCN3O-1 THEN SOT 
50B0 

5001 I FN-16ANDSP-20AND0B C 31 3 <> - 1 ANDDB Z 40 
3<>-lTHENPRINTMSSC73:OBC313-20:OBC403-20 
: G0T010B0 

500S IF N-10AND SP-BTHEN PRINT MS$C33:G0 
T010B0 

5003 IF N-ll AND SP-7 THEN PRINT MSSC33: 
B0T010B0 

5004 IF N-4 ANDCSP-3 OR 0BCN3— 13 THEN 
PRINT MSSC13:B0T010B0 

5005 IF N-5 ANDCSP-3 OR 0BCN3— 13 THEN 
PRINT MSSC13:G0T010B0 

500B IF N-l AND SP-1 THEN PRINT MSSC13:G 

0T010B0 

500B IF N-3 AND SP-2AND0BC123-0THENPRINT 

MSSCB3:OBC123-2:GOT010BO 

5009 I FN-3ANDSP-2THENPR I NTMSS C 1 3 : B0T010B 


5010 IFN-6ANDOBC53-OTHENPRINT"THERE*S A 
BOTTLE IN THE WATER. *': OBC 53 -SP: G0T010B0 
SOU IFN-7ANDCSP-10ROBCN3 — 13THENPRINT"I 
T'S A BOOK ABOUT MAGIC POTIONS .": G0T010B 


50 IB I FN-B ANDSP-5 ANDOB C 1 6 3 -OTHENPR I NTMSS 
C93:OBC163-SP:GOT010SO 

5013 IF N-3 AND NOT FLC13 THEN PRINTMSSC 
13:G0T010B0 

5014 IF N-9 AND FLC13ANDSP-5 THENPRINT"I 
T WON'T G0/":G0T010B0 

5015 IFN-1EANDOBC123— 1THENPRINT"THERE'S 
SOMETHING WRITTEN ON IT. " :0BC1B3-SP: GOT 

01080 

501B IFN-1SAND0BC123-ETHENPRINT"I'LL HAU 

E TO PICK IT UP FIRST. ".G0T010B0 

5017 IFN-13AND0BC143-0THENPRINT"THERE'S 

A KNIFE ON THE TABLE . ":OBC 14 3-3: G0T010B0 

501B IFN-5ANDCOBC73=10ROBC73-03THENPRINT 

"THERE'S AN OLD BDOK ON IT. " : OBC73-1 :GOT 

01080 

5019 IFN-14 AND C0BC143-SP OR OBC143 — 13 
THENPRINT-THE BLADE'S UERY SHARP" :B0T010 
BO 

5020 IFN-15ANDCOBCN3-SPOROBCN3— 13THENPR 
I NTMSS C 1 3 : G0T010B0 

5021 IFN-1BANDC0BC1B3 — 10ROBC1B3-SP3THEN 
PRINTMSSC13:G0T010B0 
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5022 I FN-17ANDSP-BANDFL C 3 3 <> -1THENPR I NT " 
IT'S CLOSED .": SOTOIOBO 

5023 I FN- 17 ANDSP-BANDFL C 3 3 — 1 THENPR I NT " I 
T'S WIDE OPEN .": GOTO 1080 

5024 I FN-1 B ANDSP-7ANDFL C 1 3 THENPR I NT "DRAW 
BRIDGE'S BEING LOWERED. ": DUC7, 43-10: GOTO 
1080 

5025 IFN-1BANDSP-7ANDN0TFLC 13THENPRINT"T 
HE DRAWBRIDGE IS UP . " : G0T010B0 

502B IFN-21THENPRINTMS$C13:G0T010B0 

5027 IFN-23ANDSP-14G0T010000 

502B IFN-2BANDSP-17THENPRINT"IT'S REALLY 

A MARUELLOUS COPY . " : G0SUB3040: G0T01080 
5023 IFN-29ANDSP-1BTHENPRINT"THERE'S A F 
UNNY SMELL COMING FROM IT . ":G0T010B0 

5030 I FN-30ANDSP- 1 90R0B C 30 3 — 1 THENPR I NT " 
IT'S USELESS METAL .": GOTO 1080 

5031 IFN-31ANDCSP-200R0BC313— 13THENPRIN 
TMSSC13.-G0T010B0 

5032 I FN-35AND CSP-2B0R0BC353 — 13 THENPR IN 
TMSSC13:GOT01080 

5033 IFN-3BANDSP-23THENPRINT-IT DOESNT'T 
LOOK LIKE IT WILL BEAR MUCH .": GOTO 10B0 

5034 IFN-37ANDSP-24THENPRINT"IT'S THE FA 
MOUS BLUE WATER .": G0T01080 

5035 IFN-3BANDSP-10THENPRINTMS$C13:60T01 
080 

503B I FN-40AND C SP-200R0B C 40 3 — 1 3 THENPR I N 

TMS$C13:G0T010B0 

5037 I FN-43THENSP-2B : PR I NT "0 . K . " : G0T0108 



503B IFN-45 THENPR I NTMSS C 103 : PRINTMSSC11 

3 : G0T01080 

50B0 I FN-21THENPR I NTMSS C 1 3 : G0T010B0 

50B1 IFN-39ANDSP-20AND0BC313O-1AND0BC40 

3<>-lTHENPRINTMSSC73:OBC313-20:OBC403-20 

: G0T01080 

50B2 I FN-33ANDSP-E3THENG0SUB90B0 : PR I NT "T 

HERE'S A SPRING IN THE EAST. ":G0T010B0 

50B3 IFN-1BANDCSP-230R0BC343— 13THENPRIN 

T"IT*S MEDICINAL MUD . " : G0SUBS080: G0T010B 



50SB PR I NTMSS C 1 3 : GOTO 1 OBO 

5500 IF0BCN3OSPAND0BCN3O-1 THENG0T055B0 

5501 IFN-1THENPRINTMSC23 : G0T010B0 

5502 IFN-BTHENPRINTMSC23.-B0T010B0 

5503 IFN-17THENPRINTM5SCE3 : G0T010B0 

5504 IFN-2 THENPRINTMS$C43:GOT010BO 

5505 IFN-3 THENPRINTMSC43:GOT010BO 
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5506 IFN-B THENPRINTI1SSC43:60T010B0 

5507 IFN-10THENPRINTI1S$C43 : S0T010B0 
550B IFN-llTHENPRINTI1S$C43:GOTOlbBO 
550S ZA-0 : FOR I - 1 TOAO : I FOB C I 3 — 1 THENZA-ZA 
+l:IFZA-4 THEN60T05593 

5510 NEXT I 

5511 IFN-5THENOBCN3 — 1 : PRINT"0 . K . " : G0TD1 
OBO 

5512 IFN-7THENOBCN3— 1 : PRINT"0 . K . " : 60T01 
OBO 

5513 IFN-12THENOBCN3— 1 : PRINT"0 .K . " : GOTO 
10B0 

5514 IFN-15THEN0BCN3— 1 : PRINT"0 .K . ** : GOTO 
10S0 

5515 IFN-16THENOBCN3— 1 : PRINT"0 . K . " : GOTO 
10B0 

551B IFN-14THEN0BCN3— 1 : PRINT"0 .K . " : GOTO 

10B0 

5517 I FN-9THENPR I NTMSS C S 3 : G0T010B0 

551B IFN=23THENPRINTMS$C23 :G0T010B0 

5519 IFN-EBTHENPRINT"U)HAT SHALL I CATCH 
IT WITH?" :G0SUB9040: GOTO 1 OBO 

5520 IFN-1BTHENPRINTHSSC03 : G0T010B0 

5521 IFN-30THEN0BCN3— 1 : PRINT"0 .K . " : GOTO 
10B0 

5522 IFN-31THENOBC313— 1:PRINT"I'UE PUT 
THE ARMOR ON . " : G0T010B0 

5523 I FN-35AND0B C 31 3— 1THENPR I NT "0 . K . " : 
BC353 — 1:G0TD10B0 

5524 IFN-35AND0BC313O-1THENGDTQB000 

5525 IFN-36THENPRINTI1S$C43 :G0T010B0 
552B IFN-37AND0BC53 — 1 THENPR I NT " . K . " : OB 
C53-0: OBC43— 1 : G0T010B0 

5527 IFN-37AND0BC53<>-1THENPRINT"I NEED 
AN EMPTY BOTTLE FIRST .": G0T010B0 
552B IFN-3BTHENPRINTI1SSC03 :G0TD10B0 
552S IFN-40THEN0BC403 — 1 : PRINT"0 .K . " : GOT 
01080 

5532 IFN-13THENPRINTHSSC43 : GDT010B0 

5533 IFN-4THEN0BCN3— 1 : PR I NT "0 . K . " : G0T01 
OBO 

5580 IFN=34AND0BC43O-lTHENPRINT"I NEED 

SOMETHING TO PUT IN . " : GOTO 1 OBO 

55B1 IFN-34AND0BC43— 1THENPRINT"0.K.":0B 

C343— 1:B0T01080 

55B8 PR I NT "I CAN'T SEE ANYTHING LIKE THA 

T HERE . " : G0T010B0 

5530 G0T01080 

5539 PRINT"SDRRY, BUT I CAN'T CARRY ANYM 
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ORE ! " : GOTOIOBO 

5B00 IFN~12ANDDBC12D<>-1THENPRINT"I HAUE 

N'T SOT A PIECE OF PAPER .": SOTOIOBO 

5B01 IFN-12ANDOBC123— 1THENCOS-RIGHTSCST 

R$CTI3,33:CO-UALCCO$3:PRINTI1SSC53;CO :SO 

TOIOBO 

5602 I FN-7AND0B C 7 3— 1THENS0T05B50 

5603 IFN-7AND0BC73<>-1THENPRINT"I 'UE SOT 
TO HAUE IT FIRST.": SOTOIOBO 

5E43 SOTOIOBO 

5B50 INPUT "WHICH PASE";SE 

5B51 IF SE<>C0THENPRINTMS$C13:G0T010B0 

5655 PRINT"tCLR>":PRINTSPCC2D"ADUICE FOR 

CERTAIN EMERGENCIES.": PR I NT 
5B54 PRINT" IF YOU FIND THAT A WICKED WIT 
CH HAS PUT"; 

5655 PRINT"ALL YOUR FAMILY AND FRIENDS I 
NTD A LONS SLEEP THEN LET ME SIUE YOU "; 
5B5B PR I NT "SOME ADUICE:" 
5657 PR I NT: PR I NT: PR I NT: PR I NT "SET HOLD OF 

THE INGREDIENTS FDR THE" 
565B PR I NT "WIZARD'S FAUORITE TREAT AND T 
HEN BR INS" 

565S PRINT"THEM TO HIM DN THE FAR SIDE 
F THE WOOD."; 

5660 PRINT"IF HE FEELS LIKE IT, HE WILL 
HELP YOU," 

5661 PRINT"FAILINS THAT YOU WILL HAUE TO 
WAIT FOR" 

5662 PR I NT "A PRINCE TO COME AND BR INS AL 
L THE " 

5663 PR I NT "PEOPLE IN THE CASTLE BACK TO 
LIFE WITH A KISS." 

5665 EETA$:IFA$-""THEN5665 

5666 PRINT"CCLR3" 

5667 PRINT"C DN3THE INBREDIENTS ARE AS F 
OLLOWS" 

566B print"{sh*xsh«>csh*:ksh*:ksh»:ksh» 

>CSH»JCSH»>CSH*3CSH*>CSH«JCSH»JCSH»3{:SH» 
>CSH»XSH»}CSH*5CSH*>CSH*}CSH»>tSH»}CSH» 
3CSH»>CSH»5<:SH»3CSH»JCSH«>CSH»JCSH*3CSH» 
>CSH*>" 

5669 PRINT"* DNJSPIDER WEBS" 

5670 PRINT"C DNJSNAKE ESSS" 

5671 PRINT"* DN>MEDICINAL MUD" 

5672 PRINT"C DNJBLENDED WITH THE MASIC W 
ATER" 

5B73 PRINT"* DN>C DNJJUST PRESENT THESE 
TO THE WIZARD." 
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5B74 EETAS:IFAS-""THEN5674 
5B75 PRINT"CCLR>":G0T01080 

5700 IFN-17AND0BC163<>-1THENPRINT"UIHAT U 
ITH ?":G0T010B0 

5701 IFN-17AND0BC163— 1THENPRINT"D.K.":D 
UCB , 43-7: FLC33 — 1 : B0T010B0 

5702 IFN-35AND0BC353THENPRINT"THERE'S A 
THICK LIOUID IN IT . ":GOT010BO 

5733 G0T010B0 

5B00 IFN-SAND0BC143 — 1ANDSP-5THENPRINT"T 

HE HDLDINS ROPES HAUE BEEN CUT.":FLC1D — 

1 : B0T010B0 

5B01 IFN-3ANDSP-5ANDDBC1430-1THENPRINT" 

WHAT WITH ??":B0T010B0 

5B33 PRINTMSSC03:G0T010B0 

5300 IF0BCN3OSPAND0BCN3O-1THENPRINT-I 
CAN'T SEE ANYTHINB LIKE THAT !":G0TD1080 

5301 IFN-3THENPRINT"YDU NEED AT LEAST TW 
MEN FOR THAT JOB . " : B0T010B0 

5302 IFOBC143— 1ANDSP-5THENPRINT"THE HOL 
DINE ROPES HAUE BEEN CUT . " :FLC13— 1 :BOT 
01080 

5S03 IFN-31THENPRINT"0.K. - I HAUE SOT T 
HE ARMOR 0N.":0BCN3— 1:B0T010B0 
BOOO IFN-5ANDSP-24ANDDBC53 — 1THENPRINT"0 
. K . " : OBC53-0 : 0BC41 3— 1 : SOT010BO 
B010 I FN-5AND0B C 5 3 — 1 ANDSP< > 24THENPR I NT " 
WHAT WITH ?":B0T01080 
6020 PR I NT "I CAN'T":B0T010B0 
B100 IF0BCN3O-1THENB0TDB1B0 
6101 IFN-4THENPRINT"0 .K . " : 0BCN3-SP: B0T01 
OBO 

B102 I FN-5THENPR I NT "O . K . " : OB C N 3 -SP : G0T01 
OBO 

6103 I FN-7THENPR I NT "0 . K . " : OB C N 3 -SP : B0T01 
OBO 

6104 IFN-12THENPRINT"O.K.":OBCN3-SP:GOTO 
10B0 

6105 IFN-15THENPRINT"0 .K . " : 0BCN3-SP : BOTO 
10B0 

6106 IFN-16THENPRINT"0 .K i " : 0BCN3-SP : BOTO 
10B0 

6107 I FN-14THENPR I NT "0 . K . " : OB C N 3 -SP : SOTO 
10B0 

610B IFN-30THENPRINT"0 .K . " : 0BCN3-SP : BOTO 

10B0 

6103 IFN-41THENPRINT"0 .K . " : 0BCN3-SP : SOTO 

10B0 

6110 1 FN-45THENPR I NT "O . K . " : OB C N 3 -SP : GDTO 
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1080 

Bill I FN-40THENPR I NT " . K . " : OB C N 3*SF t-BOTO 

1080 

6112 IFN-3BTHENPRINT"0 .K . " : 0BCN3-SP: GOTO 

1080 

B113 IFN-35THENPRINT"0 .K . ** : 0BCN3-SP : BOTO 

1080 

Bill IFN-31THENPRINT"0 .K . " : 0BCN3-SP : BOTO 

1080 

B170 B0T01080 

B1B0 IFN-5AND0BC413— 1THENPRINT"0 .K . " : OB 

C413-SP:GOT010BO 

B1B1 IFN-4AND0BC343 — 1THENPRINT"0 .K. " :0B 

C343-SP:0BC4]-SP:GQT010B0 

B1S0 G0T01080 

BOOO PRINT"CCLR3":PRINT"A SNAKE'S BITTEN 

ME." 
8010 PRINT"I HAUE BEEN KILLED. ": PRINT: PR 
I NT "SHALL I TRY AGAIN ?" 
B020 BETAS:IFA$-""THENBOEO 
8030 IF A$-"N"THENEND 
8040 RUN 

8050 IF0BC343O25THENRETURN 
8060 IF0BC353O25THENRETURN 
8070 IF0BC413O25THENRETURN 
8080 IF0BC403O25THENRETURN 
B090 PRINT , *CCLR3":PRINT"CCn43I CAN HEAR 
A UOICE'*:PRINT:PRINT:PRINT 
8100 PRINT"CCI143THE OLD HUMBUB'S DELIGHT 
ED WITH YOUR" 

B110 PRINT: PR I NT "PRESENTS. HE IS GOING T 
USE HIS I1AGIC" 

B120 PRINT:PRINT"TO HELP YOU. ": PRINT :PRI 
NT 
B130 PRINT"BO BACK HOME WHERE A FEAST IS 

PREPARED": PR I NT 
8140 PRINT"TO CELEBRATE THE END OF LONG 
SLEEP ! "; : PRINT 
B160 G0T081E0 
B170 PRINT"CCLR3" 

3040 IF0BC30D— 1THEN0BC303-20:PRINTMS$C6 
3 : RETURN 

9050 IF0BC353— 1THEN0BC353-20:PRINT(1S$C6 
3 : RETURN 

30B0 IFOBC53— 1THENDBC53-20: PRINTMSSCB3 : 
RETURN 
9070 RETURN 

9080 IF0BC313O-1THENRETURN 
9090 PRINT"CCLR3":PRINT"I'I1 TOO HEAUY AN 
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D I'M SINKING !":SDTOB010 

31 00 I FRND C 1 3 > . 3THENRETURN " 

9110 PRINT-CCLR}": PRINT"I 'UE FALLEN IN 

TO A TRAP . " : S0T0B010 

10000 PRINT"CCLR>":PRINT"IT*S AN ENCHANT 

ED KITCHEN, THE WIZARDS" 

10010 PR I NT "COM INS AND HE'S GOINS TO TUR 

N ME INTO STONE .": G0T0B010 

READY . 
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REM C64 ADUENTURE EDITOR 

1 REMCC3 1984 BY J. WALKOWIAK 

2 REM 



5 POKE 53280,0: POKE 53281,0: PRINT"CYEL 
3" 

7 AS CO 3- "ADUENTURE SYSTEM 1.0" 

8 A$C13-"CC319B4 BY WALKOWIAK": A$C23-"FR 
OM THE ABACUS BOOK" 

9 AS C33 -"ADUENTURE GAMEUR ITER'S HANDBOOK 

M 

10 PRINT"CCLR>C DN>C DN3" : F0RI-0T04: PRIN 
TSPCC20-INTCLENCASC 1 3 3/23 3ASC 1 3 "< 0N3 " : N 
EXT 

11 DIM RASCSOS.OBSCBOS.OBCBOS.UESCSOS.MS 
$CBOD,ACSC30 l B03,BC$C30,B03,RNSCB03 

15 DIM ADSC203,DUC60,63 

IB M1$="ADUENTURE EDITOR UER 1.0" 

17 M2$-"C DNJt DNKWHT>WHAT WOULD YOU LI 

KE?" 

IB M3$-"<:SH«JCSH*><:SH»>CSH*>£SH*3CSH*>tS 

H*3CSH*>tSH»JCSH»3CSH»JCSH*>CSH»3<:SH«J<:S 

H*3CSH»JCSH*>CSH»>CSH»>CSH»5CSH*3CSH»3CS 

H*3CSH»JCSH*>CSH*JCSH»>CSH«JCSH»>CSH*>CS 

H»>CSH*3CSH»3CSH«>CSH»3CSH«>CSH»>CSH*3CS 

H»3CSHC>" 

19 M4S-" 

■I 

20 AR-O: AO-0: AU-O: AM-O: AF-O: 12-1 : L3-1 
25 F0RI-1T02000:NEXTI 

30 PRINT"CCLRJ";M1S:PRINTM3S 

40 PRINT"< DNJC DNJUHICH ADUENTURE DO YO 

U WISH TO PROCESS": INPUT NA$: INPUT "C DN> 

UERSION "jUES 

50 INPUT-C DN3C0PYRIGHT BY "iCRS 

200 PRINT"CCLR>CYEL3" ; M1$:PRINT M3S; 

210 PRINTSPCC103"CCMB30 - IDENTIFICATION 
DATA" 

211 PRINTTABC103"C DNJ1 - ENTER ROOMS 

» 

212 PRINTTABC103"C DNJ2 - ENTER OBJECTS 

» 

213 PRINTTABC103"C DN33 - ENTER UERBS 
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214 PRINTTABC103"C DN34 - OBJECT POSITIO 

NS" 

215 PRINTTABC103-C DN35 - CONNECT ROOMS 
TOBETHER" 

216 PRINTTABC103*'C DN36 - CONDITIONS & A 
CTIONS " 

217 PRINTTABC103"C DN37 - INSERT MESSAGE 
S" 

21B PRINTTABC103"C DN3B - DISK ACCESS 

II 

219 PRINTTABCIOD-C DN39 - PROBRAtl END " 

220 PRINTM3S 

225 PRINTTABt 103 "PLEASE CHOOSE 

230 SOSUB 10000 

235 IF A-9 THEN EN— 1: SOTO 5100 

240 ON A+l BOTO 3000,1100,1200,1300,1400 

,1500,1600,4000,5000,6000 

493 REM I/O ROUTINE 

500 PRINT-CCLRJ"; 

510 ZE-0:SP-0: SOSUB 11000:PRINT Tl$ 

520 Z-Z+l 

555 ZE-0:SP-B5: SOSUB 11000: PRINTT2S;Z 

556 PRINTM3S 

557 ZE-lB:SP-0: SOSUB 11000:PRINT M4S 

558 ZE-16:SP-0: SOSUB 11000: PRINTZ-1 ;: IF 
A-l THEN PRINT RASCZ-13 

559 IF A-2 THEN PRINT 0BSCZ-13 

560 IF A-3 THEN PRINT UERBSCZ-13 

5B3 ZE-20 : SP-O : SOSUB 11000: PRINTT3S; : EIS 
-"": INPUT EI$:IFEIS-""THEN5B3 

564 IF LEFTSCEI$,13-"»"THEN BOTO 200 

565 IF A-2 THEN ZE-22: SP-O: BOSUB 11000:1 
NPUT"OBJECT NAME " ; RNSCZ3 

570 ZE-20: SP-O: BOSUB 11000: PRINT M4$ 

571 ZE-22: SP-O: BOSUB 11000: PRINT M4$ 
5S0 RETURN 

1100 PRINT"CCLR3":T1S-"ENTER ROOMS ":T2$ 

-" ROOM N0.j":T3$-"I AM " 

1105 Z-AR 

1110 BOSUB 510 :REM PRINT ROOMS 

1120 RASCZ3-EIS 

1125 AR-Z 

1130 BOTO 1110 

11SS REM END 
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1200 PRINT"CCLRJ":T1S-"ENTER OBJECTS " : T 

2S-" OBJECT N0":T3$-"I SEE " 

1E05 2-AO 

1510 BOSUB 510 

1220 0BSCZ3-EIS 

1225 AO-Z 

1230 S0T01210 

1230 REM END INPUT OBJEC 

TS 

1300 PRINT-CCLR3" 

1301 T1$-"ENTER UERBS":T2S-"UERB NO.:" 

1302 T3$-"" 
1305 Z-AU 
1310 GOSUB 510 
1320 UERBSCZD-EIS 
1330 AU-Z 

1360 GOTO 1310 

13S0 REM 

13SS REM OBJECT LO 

CATIONS 

1400 PRINT"CCLR>" 

1410 LP-L3 

1420 FOR I -LP TO AO 

1430 GOSUB 12000 :REt1 PRINT LIST 

1440 ZE-23:SP-0:G0SUB11000:PRINT"0BJECT 

"iRNSCIJ;" IN ROOM NO.";: INPUT OBCID 
1450 LP-I+1 
1460 PRINT"CCLRJ" 
1470 NEXT I 
1490 GOTO 200 
1500 FOR R1-I2 TO AR 
1510 PRINT"CCLRJ" 
1520 GOSUB 12000 

1530 PRINT"* DN1>R00M";R1; "LEADS NORTH TO 
"i : INPUT DUCR1.1D 

1540 PRINT"C DN5R00M";R1; "LEADS SOUTH TO 
"; : INPUT DUCR1.23 

1550 PRINT"* DN3R00M";R1; "LEADS WEST TO" 
; : INPUT DUCR1.3D 

1560 PRINT"C DN3R00I1";R1; "LEADS EAST TO" 
;: INPUT DUCR1.43 

1570 PRINT"* DN>ROOM";Rlj "LEADS UP TO"j: 
INPUT DUCR1.5J 

1580 PRINT"C DN}R00I1";R1; "LEADS DOWN TO" 
; : INPUT DUCR1.6D 
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1585 NEXT Rl 

1590 S0T0200 

1591 RE(1 END CONNECT 

IONS 

1600 PRINT"CCLR>": REM CON 

D I TONS AND ACTIONS 
1B05 NB-0 

1607 NB-NB+1 

1608 IF NB>AU THEN BOTO 200 
1B0S RNS CO 3 -"< CONTINUED 

1B10 PRINT"CCLR3":F0RI-0 TO AO 

1BS0 PRINT I;RNSCID; 

1630 IF POSC03+LENCRN$CI+13 3-> 38 THEN P 

RINT 

1640 NEXT I 

1B50 PRINT: PRINT M3$:PRINT"C DN3" 

1700 PR I NT "ACT I ON ON UERB " ;UERBSCNB3 ; 

" AND OBJECT NO. "; 

1710 INPUT OB 

1715 IF OB-0 THEN BOTO 1607 

1B00 PRINT"CCLR3"; 

1B10 PRINT-PLEASE INSERT ALL CONDITIONS 

FOR ACTION ";UE$CNB3;" ";RNSC0B3"; " 

1B15 PRINTM3S 

1820 PRINT"C DN>C DN>"TABC53"R - DBJEC 

T IS IN ROOM" 

1830 PRINTTABC53"C DN>I - OBJECT IS IN 

INVENTORY" 
1B40 PRINTTABC53"C DNJN - OBJECT IS NO 
T HERE " 

1B50 PRINTTABC53"< DN3FX - FLAB X IS SE 
T" 

I860 PRINTTABC53"C DNJBX - FLAB X IS DE 
LETED" 

1870 PRINTTABC53"C DNJSXX - PLAYER IS RO 
OM XX " 

1880 ZE-20:SP-0:S0SUB 11000 
18S0 PRINT M3S;: PR I NT "ALTER CODE — > "; 

?CSCNB,0B3: PRINT 
900 INPUT"CONDITI0NS";BCSCNB,OB3 
1905 PRINT"CCLR3";UESCNB3;" ";0B$C0B3 : " 
BRINGS ABOUT WHEN:" 

1S06 PRINTBCSCNB.0B3;" COMPLETES THE FO 
LLOUII NS ACT I ON : " : PR I NTM3S ; 
1910 PRINT" U - ";RNSC0B3;" DISAPP 
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EARS" 

1320 PRINTTABC53"C DN5I - ";RN$COBD ; " 

GOES INTO INUENTORY" 

1930 PRINTTABC53"C DN5NXX - OBJECT XX AP 

PEARS NEW" 

1940 PRINTTABC53"C DNJDXY - PASSAGE N. T 

ROOM XX" 

1950 PRINT TABC53"C DN3DXXY - PASSAGE TO 

ROOM XX DIR. Y" 

1960 PRINTTABC5D"C DNJFX - SET FLAG X" 

1370 PRINTTABC5D"C DN>LX - DELETE FLAG 

X" 

19B0 PRINTTABCSD-C DN3MXX - OUTPUT P1ESSA 

GE XX" 

1330 PRINTTABC5D"C DNJT - PLAYER DIES" 

5000 PRINTTABC53"C DN5E E END, BECAUSE 

WON" 
E005 PRINTH3S; 

2010 PR I NT "ALTER CODE — > ";AC$CNB,0B3 
2020 INPUT"ACTI0N";AC$CNB,0B3 
2030 G0T01610 

2040 REM END ACTION & CONDITIONS 

20B0 GOSUB10000 

2333 REM KENNDATE 

N 

3000 PR I NT "CCLR3 IDENTIFICATION FOR THE A 

DUENTURE " ; NAS 

3010 PRINT"C DN>"M3$"C DN>" 

3020 PR I NT "C DN>R00(1S: »;AR 

3030 PR I NT "C DN50BJECTS: »;A0 

3040 PRINT"C DNJUERBS: ";AU 

3050 PR I NT "C DNJCONDITIONS:";NB 

3060 PRINT"C DNJHESSAGES ";AM;"C DNJ" 

3070 IF LO THEN PR I NT "C DNJ "; AF ; "USED FL 

AGS" 

3080 PRINTt13$ 

3030 PRINT"C DN3START ROOM FOR PLAYER: 

"•SP 
3095 PR I NT "C DN3NECESSARY INPUT LENGTH: 

"•UIL 
3100 G0SUB10000 
3110 G0T0200 

3333 REM INFORM 

AT I ON 

4000 PRINT"CCLR>INPUT MESSAGES" 
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4010 PRINTM3S 

4020 Att-Att+1 

4030 PRINT AM;: INPUT MS$CAM3:IF MSSCAI13- 

""THEN PRINT"C UP3C UP J " : 60T04030 

4040 IF LEFTS CMSSCAI13, 13-"* "THEN An- All- 1 

: 60T0 500 
4050 GOTO 4020 

40B0 REM END OF IN 

FO 

4933 REtl DISK CO 

(WANDS 

5000 PRINT"* CLR:>1 - SAUE" 

5010 PR I NT "C DN32 - LOAD" 

5020 GOSUB 10000 

5030 IF A<1 OR A>2 THEN GOTO 5020 

5040 ON A GOTO 5100, 5500 

5100 PRINT"CCLR3PLEASE WAIT ..." i: PRINT" 

C DN3SAUING DATA ! " 

5105 G0SUB6000 

5110 OPEN 2,B,2,"eO:"+NAS+",S,UP 

5120 PR I NT#2 , NAS : PR I NT#2 , UERSS : PR I NT#E , C 

R$:PRINT#2,UIL 

5130 PRINT#2, AR : PRINT#2 , AO: PRINT#2, AU : PR 

I NT#2 , All : PR I NT#2 , SP : PR I NT#2 , AF 

5140 FOR 1-1 TO AR:PRINT#2,RA$CI3:NEXT I 

5150 FOR 1-1 TO A0:PRINT#2,0BSCI3:PRINT# 

2,RN$CI3:PRINT#2,OBCI3:NEXT I 

5170 FOR 1-1 TO AU:PRINT#2,UE$CI3:NEXT I 

51B0 FOR 1-1 TO An:PRINT#2,nS$CI3:NEXT I 

5190 FOR X-l TO AR 

5200 FDR Y-l TO 6 

5210 PRINT#2,DUCX,Y3 

5220 NEXT Y 

5230 NEXT X 

5240 FOR X-l TO AU 

5250 FOR Y-l TO AO 

5255 IFBCSCX,Y3-""THENBC$CX,Y3-"»" 

5260 PRINT#2,BC$CX,Y3 

5270 NEXT Y 

52B0 NEXT X 

5230 FOR X-l TD AU 

5300 FOR Y-l TO AO 

5305 IFACSCX,Y3-""THENACSCX,Y3-"*" 

5310 PRINT#2,AC$CX,Y3 

5320 NEXT Y 

5330 NEXT X 

5340 CLOSE 2 : IF EN THEN PRINT"<:CLR3": E 

NO 
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ND 

5350 GOTO 200 

5500 PRINT"CCLR>PLEASE WAIT . .":L0— 1 :P 

RINT"C DNDLOADING DATA ! " 

5510 OPEN 2,B,2,NA$+",S,R" 

5550 I NPUT#2 , NAS : I NPUT#2 , UERSS : I NPUT#2 , C 

RS:INPUT#2,WL 

5530 I NPUT#2 , AR : I NPUT#2 , AO : I NPUT#2 , AU : I N 

PUT#2 , AM : I NPUT#2 , SP : I NPUT#2 , AF 

5540 FDR 1-1 TO AR: INPUT#2, RASC ID : NEXT I 

5550 FOR 1-1 TO AO: INPUT#2, OBSC I D : INPUT# 

2,RNSCI]:INPUT#2,0BCI3:NEXT I 

5570 FOR 1-1 TO AU: INPUT#2, UESC I D :NEXT I 

55B0 FOR 1-1 TO AM: INPUT#2,MS$C ID :NEXT I 

55S0 FOR X-l TO AR 

5B00 FOR Y-l TO B 

5B10 INPUT#2,DUCX,YJ 

5B20 NEXT Y 

5B30 NEXT X 

5B40 FOR X-l TO AU 

5B50 FOR Y-l TO AO 

5BB0 INPUT#2,BC$CX,YD 

5B70 NEXT Y 

5BB0 NEXT X 

5B90 FOR X-l TO AU 

5700 FOR Y-l TO AO 

5710 INPUT#2,ACSCX,YJ 

5720 NEXT Y 

5730 NEXT X 

5740 CLOSE 2 

5750 GOTO 200 

599S REM riOR 

E DATA 

BOOO PRINT"CCLRJPLEASE INSERT THE REST 

F THE DATA:":PRINTM3S 

B010 INPUT"* DN5C DNDUIORD LENGTH" ;UIL 

6020 INPUT"C DNJC DNDSTART R00I1 ";SP 

B030 INPUT"C DNJC DNDNUMBER OF FLAGS" ;AF 

B090 RETURN 

10000 GET AS: I FAS-"" THEN 10000 

1 00 1 A-UAL C AS D : RETURN 

11000 POKE 211,SP:P0KE 214,ZE:SYS 58732: 

RETURN 

12000 SP-0:ZE-0:G0SUB11000 

12010 PRINT"LIST OF POSSIBLE ROOMS: ":PRI 
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NTP13S 

12020 FOR I 1-1 TO AR:REM PRINT ROO 

n LIST 

12030 PRINTI1;RASCU3; 

120*0 IF POSC03+LENCRASCIl+13J->38 THEN 

PRINT 

12050 NEXT II 

12060 PR I NT "C DN5" 

12070 RETURN 

READY . 
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REM — ADUENTURE INTERPRETER UER 1.0 

1 REM CC3 1S84 BY JOERS UIALKOUIIAK 

E REM 

5 POKE 53581,0 .-POKE 53S81.0 

E PRINT"<XLR3"SPCC103"ADUENTURE SYSTEM 

1.0" 

7 PRINT" CC3 19B4 BY UIALKOUIIAK" 

B PR I NT "C DN> FROM THE ABACUS B 

DDK" 

9 PR I NT "C DN> ADUENTURE SAMEUIR I TER 'S H 

ANDBOOK" 

30 FOR I-1T0S000:NEXTI 

40 PRINT" WHICH ADUENTURE DO YOU UIANT TO 

PLAY": INPUT" FILE NAME: ";NA$ 
50 OPEN S,B,S,NA$+",S,R" 

60 I NPUT#S , NA$ : PR I NTNAS : I NPUT#E , UERSS : PR 
I NTUERSS : I NPUT#S ,CR$:PRINTCR$:I NPUT#B , UL 
70 I NPUT#E , AR : I NPUT#E , AO : I NPUT#E , AU : I NPU 
T#S , AM : I NPUT#S , SP : I NPUT#S , AF 

75 DIM RASCAR3,OBS[A03,RN$CA03,OBCA03,UE 

mcAMa jMSSEaRi.AGSEfly, A03 ,DG*eAy,A03 

76 DIM ADSC20D,DUCAR,63 

BO FOR 1-1 TO AR:INPUT#E,RA$CI3:NEXTI 

SO F0RI-1T0A0: INPUT#S, OBSC 1 3 : INPUT#S, RN$ 

C I 3 : RNSC I 3-LEFTSCRNSC I 3 , UIL3 : INPUT#E, OBC I 

3: NEXT I 

100 FOR 1-1 TO AU:INPUT#E,UE$CI3:UESCI3- 

LEFT$CUESCI3,WL3: NEXT I 

110 FOR 1-1 TO AM:INPUT#E,MS$CI3:NEXTI 

ISO FOR X-l TO AR : FOR Y-l TO 6 

130 INPUT#E,DUCX,Y3 

140 NEXT Y:NEXT X 

150 FOR X-l TO AU : FOR Y-l TO AO 

160 INPUT#E,BCSCX,Y3 

170 NEXT Y : NEXT X 

180 FOR X-l TO AU : FOR Y-l TO AO 

ISO INPUT#E,AC$CX,Y3 

SOO NEXT Y : NEXT X 

£10 CLOSES 

1000 PRINT"CCLR3": PRINT CHRSC14E3 

1010 LES-" 
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1050 DATA NORTH, SOUTH, WEST, EAST, UP, DOWN 

1030 FOR RI-1 TO 6 

1040 READ RISCRI3 

1050 NEXT RI 

1070 PRINT"CCLR5":P0KE S32B1 ,0:P0KE532B1 

,0 

10B0 PRINT" " 

1030 POKE El 1,0: POKE 214,0: SYS 5B732 

1100 FOR ZE-1 TO 10 

1110 PRINT LES 

1120 NEXT ZE 

1130 POKE 21 1,0: POKE 214,0: SYS 5B732 

1140 PRINT"I AM "; 

1150 PRINTRASCSP3 

1160 PRINT"I SEE ";:GE-0 

1170 FOR 1-1 TO AO 

HBO IF OBCIJOSP THEN 1210 

1130 IF POSC03+LENCOBSCI3 3+2 < 33 THEN P 

RINT 0BSCI3;", "j:GE— 1 : GOTO 1210 

1200 IF POSC03+LENCOBSCI3 3+2 >- 33 THEN 

PRINT : GOTO 11S0 

1210 NEXT I : IF NOT GE THEN PRINT"NOTHI 

NG IN PARTICULAR "; 

1220 PRINT"tLFT3CLFT>." 

1230 PRINT LES 

1240 PRINT" I CAN GO " ; 

1250 FOR RI-1 TO G 

12G0 IF DUCSP.RI3-0 THEN GOTO 1310 

1270 IF POSC03-14 THEN PRINT RI$CRI3;:G0 

TO 1310 

12B0 IF P0SC03+LENCRISCRI3 3O7 THEN PRIN 

T", ";RI$CRI3; :GOTO 1310 

1230 IF POSC03+LENCRISCRI3 3>-37 THEN PRI 

NT", ":PRINTRI$CRn ; : GOTO 1310 

1300 IF P0SC03<1G AND POSC03>2 THEN PRIN 

T", ";RI$CRI3; 

1310 NEXT RI 

1320 PRINT"." 

1330 PRINT" 



1330 POKE 21 1,0: POKE 214, 24: SYS 5B732:PR 

INT" "; :INPUT"UHAT SHALL I DO ";EIS: PRI 

NT" "; 

1425 IF LENCEIS3>2 THEN 1500 

1430 IF EI$-"N"ANDDUCSP,13<>0 THEN SP-DU 
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CSP,13:PRINT"O.K.":60TO 10B0 

1440 IF EI$-"S"ANDDUCSP,23<>0 THEN SP-DU 

CSP,23:PRINT"O.K.":GOTO 10B0 

1450 IF EI$-"U"ANDDUCSP,33<>0 THEN SP-DU 

CSP,33:PRINT"O.K.":GOTO 1080 

1460 IF EI$-"E"AN0DUCSP,43<>0 THEN SP-DU 

CSP,43:PRINT"O.K.":GOTO 10B0 

1470 IF EI$-"U"ANDDUCSP,53<>0 THEN SP-DU 

CSP,53:PRINT"O.K.":GOTO 10B0 

1480 IF EI$-"D"ANDDUCSP,63<>0 THEN SP-DU 

CSP,63:PRINT"O.K.":GOTO 10B0 

14S0 PRINT"THAT DOESN'T LEAD ANYWHERE!": 

60T010B0 

1500 IF LEFT$CEIS,33<>"INU"THEN 1B00 

1510 PR I NT "I AM CARRYING THE FOLLOWING:" 

15B0 FOR 1-1 TO AO 

1530 IF 0BCI3 — 1 THEN PRINT 0BSCI3 

1540 NEXT I 

1550 GOTO 10B0 

1600 IF LEFT$CEI$,43<>"SAUE"THEN 1700 

1605 PRINT"CCLR>"SPCC103" SAUE GAME " 

1606 INPUT"C DN3C DN3ENTER NAME ";EI$ 
1610 IF LENCEI$3>16 THEN 1605 

IBIS PRINT"C DN3C DNJFILE ";EI$;" IS SAU 

ING." 

1620 OPEN 2,8,2, "SO: "+EIS+" ,S,UI" 

1625 PRINT#2, NA$: PRINT#2, SP: PRINT#2, FL 

1630 FOR 1-1 TO AO:PRINT#2,OBCI3:NEXTI 

1640 FOR RA-1 TO AR:FOR RI-1 TO 6 

1650 PRINT#2,DUCRA,RI3 

16B0 NEXT RI: NEXT RA 

1670 FOR 1-1 TO AF: PRINT#2, FLC I 3 : NEXT I 

1675 CL0SE2:G0SUB 1680: PRINT"CCLR3" : GOTO 

10B0 

1680 0PEN1,8,15:INPUT#1,A,B$,C,D 

1685 I FA< > OTHENPR I NT : PR I NTBS : FOR I -1T0500 

: NEXT : CL0SE2 : CL0SE1 : G0T01080 

1630 CL0SE1: RETURN 

1700 IF LEFT$CEI$,43<> "LOAD "THEN 2000 

1705 PRINT"CCLR}"SPCC103" LOAD GAME " 

1706 INPUT"C DNX DN3ENTER NAriE";EIS 
1710 IF LENCEIS3M6 THEN 1705 

1715 PRINT"C DN3C DNJFILE ";EIS;" IS LOA 

DING" 

1720 OPEN 2,8,2, "SO: "+EIS+" ,S,R" 



21B 



ABACUS Software ADUENTURE GAMEUR ITER'S HANDBOOK 



1 7S5 I NPUT#2 , NAS : I NPUT#2 , SP : I NPUT#2 , FL 
1730 FOR 1-1 TO AO: INPUT#2,0BC I 3 :NEXTI 
1740 FOR RA-1 TO AR:FOR RI-1 TO 6 
1750 INPUT#2,DUCRA,RI3 
1760 NEXT RI: NEXT RA 

1770 FOR 1-1 TO AF: INPUT#2,FLC ID :NEXT I 
1775 CL0SE2:G0SUB 16B0:PRINT M CCLR>":G0T0 
10B0 

2000 LN-LENCEIS3 
2010 FOR EL-1 TO LN 
2020 TE$-MID$CEIS,EL,13 
2030 IF TESO" "THEN NEXT EL 
2040 EU$-LEFTSCEI$,UIL3 
2050 RL-LN-EL 
20B0 IF RL<0 THEN 2090 

2070 EOS-R I BHTS C E I $ , RL 3 : EOS-LEFTS C EOS , UIL 
3 

2090 FOR UN-1 TO AU 
2100 IF EUS-UESCUND THEN 2130 
2110 NEXT UN 

2120 PRINT"I DON'T UNDERSTAND THE UERB . " 
:G0T010B0 

2130 FOR N-l TO AO 
2140 IF E0S-RNSCN3 THEN 2200 
2150 NEXT N 

2160 PRINT"I DON'T UNDERSTAND THE OBJECT 
. " : G0T010B0 

219B REM 

UN AND N AREA UERB/OBJECT NUMBER 

2199 REM CONDITIONS FULFIL 

LED 

2200 FOR AB-1 TO LEN CBCSCUN.N3 3 
2210 BDSCAB3-MIDSCBCSCUN,N3,AB,13 
2220 NEXT AB 

2250 FOR AA-1 TO LENCACSCUN.N3 3 
2260 ADSCAA3-MIOSCAC$CUN,N3,AA,13 
2270 NEXT AA 

22B0 REM CONDITIONS IN BDS ACTION 

S IN ADS 

2290 AB-AB-1 : AA-AA-1 
2300 X-0:ER-0 
2310 X-X+l 

2320 IF X-AB+1 THEN 2500: REM 

ALL CONDITIONS CHECKED 

2330 IF BDSCX3<>"R"THEN 2350 
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2340 IF 0BCN3OSP THEN ER— 1 : GOTO 5310 

5345 60T02310 

2350 IF BD$CX3<>"I"THEN 2370 

2360 IF 0BCN3O-1 THEN ER— 1 : SOTO 2310 

2370 IF BD$CX3<>"N"THEN 2330 

2380 IF C0BCN3OSP AND 0BCN3O-13 THEN E 

R— 1 : SOTO 2310 

2330 IF BD$CX3<>"S"THEN 2410 

2400 R1$-BDSCX+13+BDSCX+23:X-X+2:IF SP<> 

UALCR1S3 THEN ER— 1 : SOTO 2310 

2410 IF BDSCXJO-F" THEN 2450 

2420 IF FLCUALCBDSCX+1333— 1THEN 2440 

2430 X-X+1:S0T0 2450 

2440 ER— 1 : X-X+l : SOTO 2310 

2450 IF BDSCXJO-S" THEN 2310 

2460 IF NOT FLCUALCBDSCX+13 3 3 THEN 2480 

2470 X-X+l: SOTO 2310 

2480 ER— 1 : X-X+l : SOTO 2310 

2430 SOTO 2310 

2500 IF NOT ER THEN PR I NT "YOU CAN'T DO T 

HAT YET.": SOTO 1080 

3S3S REM ALL CONDIT. FULFILLED 

4000 PRINT"0.K." 

4939 REM EXECUTE ACTION 

5000 X-O.-ER-O 

5040 X-X+l 

5050 IF X>AA THEN 1080 

5060 IF AD$CX3<>"U" THEN 50B0 

5070 0BCN3-0:G0T0 5040 

5080 IF ADSCX3<>"I" THEN 5100 

5090 0BCN3 — 1 : GOTO 5040 

5100 IF A0SCX3O"N" THEN 5120 

5110 60SUB 5500 : OB C PA 3 -SP: SOTO 5040 

5120 IF ADSCX3<>- ,, F" THEN 5140 

5130 SOSUB 5600: FLCPA3—1: GOTO 5040 

5140 IF AD$CX3<>"L" THEN 5180 

5150 SOSUB 5600:FLCPA3-0 :SOTO 5040 

51B0 IF ADSCX3<>"M" THEN 51B0 

5170 GOSUB 5500:PRINTHSSCPA3 : GOTO 5040 

5180 IF AD$CX3<>"E" THEN 5200 

5190 SOTO 6000 

5200 IF ADSCX3<>"D"THEN 5300 

5210 GOTO 5310 

5220 DUCSP.P13-P2 

5230 IF Pl-1 THEN P3-2 

5240 IF Pl-2 THEN P3-1 
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S250 IF Pl-3 THEN P3-4 
5260 IF PI- 1 * THEN P3-3 
5S70 IF Pl-5 THEN P3-B 
52B0 IF Pl-B THEN P3-S 
5290 DUCPS,P33-SP:G0T05040 
5300 IF ADSCXJO-T-THENSOHO 

5310 PRINT-I'UE BEEN KILLED. ": INPUT "NEW 
BAME";EIS:IFLEFT$CEI$,13- ,, Y , 'THENRUN 

5311 PRINT" ":END 

5500 R1S-ADS C X+ 1 3 + ADS C X+5 3 : X-X+l : PA-UAL C 

R1S3: RETURN 

5B00 R1S-ADSCX+13 : X-X+l : PA-UALCR1S3 : RETU 

RN 

5700 P1-UALCADSCX+133:P2-UALCAD$CX+233:X 

-X+S: RETURN 

B000 PRINT"Y0U'UE WON THE SAI1E. ": INPUT »N 

EU BAME";EI$: IFLEFTSCEIS, 13- M Y"THENRUN 

READY . 
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Appendix A 

Special Printer Listing Codes 

All the programs in this book were listed using the 
TURBOPRINT / GT printer intBrFace in the special listing 
mode. This should make the Commodore graphic symbols easier 
to enter and with Ibss error. Compare the TURPOPRINT 
listing on page BB with the standard Commodore listing on 
page SB, the screen of BOLD FEUER. 

Below are the special listing codes produced in the special 
listing mode and the equalivent Commodore keys. 



TURBOPRINT/BT 

CUHTJ 

CRUS5 

choii:> 

CRED) 
CRHTJ 
CBRNJ 
CBLU> 
CSH*3 
CSHA> 
CSHB> 
CSHC3 
CSHD> 
CSHEJ 
CSHFJ 
CSHBJ 
CSHH} 
CSHI> 
CSHJJ 



Commodore key 

CTRL S CUHITE3 

CTRL S REUERSE ON 

CLR/HOME 

CTRL 3 CREDD 

RIGHT CURSOR 

CTRL E C GREEN 3 

CTRL 7 C BLUE 3 

SHIFT • 

SHIFT A 

SHIFT B 

SHIFT C 

SHIFT D 

SHIFT E 

SHIFT F 

SHIFT G 

SHIFT H 

SHIFT I 

SHIFT J 
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CSHKJ 
CSHLJ 
CSHf1> 
CSHN3 
CSHOJ 
CSHP3 
CSHQ3 
CSHRJ 
CSHS3 
CSHTJ 
CSHU3 
CSHU3 
CSHW3- 
CSHXJ 
CSHYJ 
CSHZ3 
CSH+3 

ccn-j 

CSH-> 
C PI> 
CCM*> 

ccni> 

CBLKJ 
C UPJ 
COFF3 
CCLR5 

ccnsj 
ccnaj 

CCMH3 

ccnsj 

CCM73 
{LFT3 
CYELJ 



SHIFT K 

SHIFT L 

SHIFT n 

SHIFT M 

SHIFT 

SHIFT P 

SHIFT a 

SHIFT R 

SHIFT S 

SHIFT T 

SHIFT U 

SHIFT U 

SHIFT Ul 

SHIFT X 

SHIFT Y 

SHIFT Z 

SHIFT + 

CMDR - 

SHIFT - 

SHIFT t 

CI1DR » 

CMDR 1 C ORANGED 

CTRL 1 C BLACK 3 

SHIFT UP/CURSOR 

CTRL REUERSE OFF 

SHIFT CLR/HOME 



CMDR 


5 


C BROWN 3 


OIDR 


3 


CL RED] 


CdDR 


4 


CGRAY 13 


CI1DR 


E 


CL GREEN 3 


CMDR 


7 


CL BLUE 3 


SHIFT 


LEFT /CURSOR 


CTRL 


B 


C YELLOW 3 
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CCYNJ 
CSH > 
CCMIO 
CCMI5 

caiT> 
ccne> 
ccmgj 
ccn+> 

ccmmj 

CSH#3 
CCMN} 
CCMQ3 
CCMD5 

icmy 
cais> 
tcnp> 
ccmaj 

CCMEJ 
CCtlRJ 

tcriui} 
ccmhj 

<CMJ> 
CCMLJ 
CCMY> 

ccmuj 

CCMO> 
CSHB> 

ccmf> 
cctio 

CCMX3 

ccnuj 

<CMB> 



CTRL 


4 C CYAN 3 


SHIFT 


SPACE 


CI1DR 


K 


CMDR 


I 


CI1DR 


T 


CMDR 


e 


CMDR 


G 


CMDR 


+ 


CMDR 


M 


SHIFT 


POUND SIGN 


CMDR 


N 


CMDR 


a 


CMDR 


D 


CMDR 


Z 


CMDR 


5 


CMDR 


P 


CMDR 


A 


CMDR 


E 


CMDR 


R 


CMDR 


Ul 


CMDR 


H 


CMDR 


J 


CMDR 


L 


CMDR 


Y 


CMDR 


U 


CMDR 


a 


SHIFT 


s 


CMDR 


F 


CMDR 


C 


CMDR 


X 


CMDR 


u 


CMDR 


B 
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MAKE YOUR OWN CHARTS.. 
CHARTPAK-64 

produces professional 
quality charts and 
graphs instantly from 
your data. 8 chart for- 
mats. Hardcopy in two . 
sizes to popular dot j 
matrix printers. $38.95 » 
ISBN* 0-916439-194 

ii» ■ on I QI* a QTR4 

1112 

Also Available CHARTPLOT-64 for unsurpassed quality charts on 
plotters. ISBN* 0-916439-20-8 $84.95 



DETAIL YOUR DESIGNS. 

CADPAK-64 

superb lightpen design 

tool, exact placement of 

object using our Accu- 

Point positioning. Has 

two complete screens. 

Draw LINES, BOXes, 

CIRCLES, ELLIPSES; 

pattern FILLing; freehand 

DRAW; COPY sections 

of screen; ZOOM in and do detail work. Hard copy in two sizes 

to popular dot matrix printers. ISBN* 0-916439-184 $49.95 



CREATE SPREADSHEETS & GRAPHS- 
POWER PLAN-64 

not only a powerful 

spreadsheet packages 
available, but with butK in 
graphics too. The 275 
page manual has tutorial 
section and HELP screens 
are always available. 
Features Meld protection; 
text formatting, windowing; 
row and column copy, 
sort; duplicate and delete. 
ISBN* 0-916439-22-4 
$49.95 




CuBrdmtti: C/10 


P0WB KM-U 




ill I 


1 


C 


1 fait* 


1« 


Ftb 


7 Biitrikutor* 


47.2 


34.1 


I ttWilwi 


n.i 


13.4 


» Ml Ordtr 


11,3 


1S.7 


t 


n.i 


111.1 


S tipmH 






» JUttriilt 


8.2 


1.1 


10 OHict 


3,0 


1.1 


11 Supalot 


4.4 


S.O 


1! MviftitiBl 


12.1 


I1.B 


11 hfroll 


10,1 


10.7 


13 






M.C 


11.3 


It 






17 Profit 


B-i 
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FREE PEEKS A POKES POSTER WITH SOFTWARE 

For name & address ot your nearest dealer call (SIS) 241-5910 



CHART YOUR OWN STOCKS.. 

TAS-64 ; 

sophisticated technical 
analysis charting 
package for the serious 
stock market investor. 4 
Capture data from 
DJN/RS or Warner ser- 
vices or enter and edit 
data at keyboard. 7 mov- 
ing averages, 3 oscillators, trading bands, least squares, 5 vol 
ume indicators, relative charts, much more. Hardcopy in two 
sizes, most printers. ISBN* 0-916439-24-0 $84.95 



DO YOUR OWN WORD PROCESSING 

TEXTOMAT-64 




flexible worprocessing 
package supporting 40 or 
80 columns with horizon- 
tal scrolling. Commands 
are clearly displayed on 
the screen awaiting your 
choice. Quickly move from 
editing to formatting to 
merging to utilities. Will 
work with virtually any prin 



C^J 



■l-H- l 



"E 



""■ I " I"* 



ISBN* 0416439-12-7 $39.96 



ORGANIZE YOUR DATA... 
DATAMAT-64 

powerful, yet easy-to- 
use data management 
package. Free form 
design of screen using 
up to SO fields per 
record. Maximum of 
2000 records per 
diskette. Complete and 
flexible reporting. Sort- 1 



INVENTORY FILE 
It™ Nu m ti«r___ 0-1IcrlptioD __ 
Onhand 



Location 
Rtmrd. Pt. 



.. Prie« 



Raord. Qtv,»_. 



ing on multiple fields in any combination. Select records for prin- 
ting in desired format. ISSN* 0-916439-16-X $39.95 

Othir titles tnlMle. For FREE CATALOG and name ol nearest datlir. writs er all (BIB) 
241-5810. for postage and handling, include S4.00 {$6.00 foreiun) per ordar. Money Order 
and chucks in U.S. dollars only. Mastercard. VISA and American Express accepled. Michigan 
residents include t% sales lax. 
CANADA: Beak Center. Montreal (514) 332-4154 
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VIDEO BASIC-64 - ADD 50+ graphic and 
sound commands to your programs with this super 
development package. You can distribute tree RUN- 
TIME version without paying royalties' 
ISBN* 0-916439-26-7 $69.91 

BASIC COMPILER 64 - complies the 

complete BASIC language into either last 6510 

machine language and/or compact speedcode. Get 

your programs into high gear and protect them by 

compiling. 

ISBN* 0-916439-17-8 S39.9S 

MASTER-64 ■ professional development 
package for serious applications. Indexed file 
system, full screen management, programmer's 
aid. BASIC extensions. 100 commands. 
ISBN* 0-916439-21-6 $39.96 

PASCAL-64 ■ lull Pascal with extensions for 

graphics, sprites, file management, more. Compiles 
to 6510 machine code and can link to 
Assembler/Monitor routines. 
I8BN# 0-918439-10-0 (39.95 



ADA TRAINING COURSE ■ teaches 

you the language of the future. Comprehensive 
subset of the language, editor, syntax 
checker/compiler, assembler, disassembler. 120+ 
page guide. 
ISBN* 0-916439-16-1 S59.9S 

FORTH-64 - loaded with hires graphics, com- 
plete synthesizer control, full screen editor, pro- 
gramming tools, assembler. 
ISBN 0-916439-32-1 $39.95 

C LANGUAGE COMPILER ■ a full C 
language compiler. Conforms to the Kernighan £ 
Ritchie standard, but without bit fields. Package in- 
eludes editor, compiler and linker. 
ISBN* 0-916439-26-3 $79.96 

ASSEMBLER MONITOR-64 ■ a 

macro assembler and extended monitor package. 
Assembler supports floating point constants. 
Monitor supports bank switching, quick trace, single 
step. more. 
ISBN! 0.916439-11-9 $39.95 



XREF-64 • indispenslbk) tool lor BASIC pro- 
grammer cross-references all references to variable 
and line numbers. 
ISBN* 0-916439-27-5 $17.95 

OTHER TITLES ALSO AVAIL- 
ABLE - WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 

Call today lor the name and address of 
your nearest local dealer. 

PHONE: (616) 241-5510 

For postage and handling include $4.00 
($8.00 foreign) per order. Money order and 
checks in U.S. dollars only. Mastercard, 
VISA and American Express accepted. 
Michigan residents pBir~][ 
incl 4% sales tax. ^Ufif. i 



FREE PEEKS & POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 
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Required Reading for 
yourjCOMMODORE 64 




TRICKS.a TIPS FOR YOUR C-64 

treasure chest of easy-to-use programming techni- 
ques. Advanced graphics, easy data input, enhanced 
BASIC, CP/M, character sets, transferring data bet- 
ween computers, more. 
ISBN* 0-916439-03-8 275 pages $19.95 

GRAPHICS BOOK FOR C-64 • from 

fundamentals to advanced topics this is most com- 
plete reference available. Sprite animation, Hires, 
Multicolor, lightpen, IRQ, 3D graphics, projections. 
Dozens of samples. 
ISBN* 0-91B439-05-4 350 pages $19.98 

SCIENCE ft ENGINEERING ON 
THE C-64 - starts by discussing variable types, 
computerjonal accuracy, sort algorithms, more. 
Topics from chemistry, physics, biology, 
astronomy, electronics. Many programs. 
ISBN* 0-916439-09-7 250 pages $19.95 



ANATOMY OF 1541 DISK DRIVE - 

bestselling handbook available on using the floppy 
disk. Clearly explains disk files with many examples 
and utilities. Includes complete commented 1541 
ROM listings. 
ISBN* 0-916439-01-1 320 pages $19.95 

ANATOMY OF COMMODORE 64 - 

insider's guide to the '64 internals. Describes 
graphics, sound synthesis, I/O, kernal routines, 
more, includes complete commented ROM listings. 
Fourth printing. 
ISBN* 0-916439-003 300 pages $19.95 

IDEAS FOR USE ON YOUR C-64 - 

Wonder what to do with your '647 Oozens of useful 
ideas including complete listings tor auto expenses, 
electronic calculator, store window advertising, 
recipe file, more. 
ISBN* 0-916439-07-0 200 pages $12.95 



PEEKS & POKES FOR THE C-64 - 

programming quickies that will simply amaze you. 

This guide is packed full of techniques tor the BASIC 

programmer. 

ISBN* 0915439-134 160 pagas $14.99 

ADVANCED MACHINE LANGUAGE 
FOR C-64 - covers topics such as video con- 
troller, timer and real time clock, serial and parallel 
I/O, extending BASIC commands, Interrupts. Dozens 
of sample listings. 
ISBN* 0-616439-08-2 210 pages $14.65 

ADVENTURE OAMEWRITBR'S 
HANDBOOK • Is a step-by-step guide to 

designing and writing your own adventure games. 

Includes listing for an automated adventure gems 

Generator. 

BSN* 0916439-144 200 pages $14.95 



Call today for the name of your nearest local dealer Phone:(616) 241-5510 

Other titles are available Call Or F °' P 051600 ond handling include $4.00 ($6.00 foreign) per order. Money order ■DEaiRJP 
„K = n«m n £ta fr== , i».»ll,„ and checks in u S ' dolla,s ° nl » -MKomt. VISA and American Express accepted. BK?j t23C3 
Write tor a Complete Tree Catalog. Michigan residents Include 4% sales lax. CANADA: Book Center, Montreal Phone: (514) 332-4154 



m ■ You Can Count On 

Abacus 



You Can Count On | ff?f ?II£IISi | 



mramu 



Software 



P.O. Box 7211 Grand Rapids, Ml 49510 - Telex 709-101 - Phone 616/241-5510 



We wrote the book on the... 



First there was the fabulously 
successful VIC-20. Then came 
the record-breaking 
Commodore-64. 

Now Jack Tramiel has launch- 
ed his third home computer, ' 
the ATARI ST. 

The ST promises to shatter all 
existing price-performance bar- 
riers and become a leader in 
the home-computer market. 
This book. PRESENTING THE 
ATARI ST gives you an in- 
depth look at this sensational 
new computer that promises to 
bring you... "Power without the 
Price." Some of the topics in- 
clude: • History of Atari 

• Overview of the ST • Con - 
struction, Operating System 

• Peripherals • Languages 

• User Programs, and more. 

Price $16.95 



PRESENTING THE 



«fA0[n 



An in-depth look at the sensational new 
computer that promises to bring 
you. .."Power without Price" 




Available June 1st Call for the name of your nearest dealer 
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ADVENTURE 



GAMEWRITERS 



HANDBOOK FOR 



COMMODORE 



This book is for owners of the Commodore 64 who 
are anxious to program their own adventure 
games. You'll learn the techniques used in adven- 
ture game programming. Included are step-by-step 
instructions on how to program adventure games 
as well as three full adventure games. This book 
also contains an Adventure Editor and Adventure 
Interpreter that allows anyone to program their 
own adventure games. Have fun writing your own 
adventures! 
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